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GENERAL 


This Product Specification will describe the basic components and 
operators of the 861700 SDL SLanguage» inctuding its STACK 
MECHANISM» DATA DESCRIPTORS» and CODE and DATA ADDRESSES. After a 
preliminary discussion of the structure and operation of the 
S*Machines its operators will be explained in detail. 


RELATED PUBLICATIONS 


NAME NUMBER 


SOL/UPL COMPILER ~ PeSe 2212 5389 
B1700 SOL CBNF VERSION) P.Se 2212 5405 


B1700 SYSTEMS REFERENCE MANUAL #1057155 
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COMPONENTS OF THE S“MACHINE 


The SOL 


1. 


S“Machine is composed of the following basic elements: 


Basewlimit area 


This is the memory area for program data. It is the only 
area that is directly addressable and thus modifiable by 
SOL S-ops. This area is bounded by base and limit 
registers. Alt "absolute" data addresses in the S-machine 
are expressed as a bit offset from the base register. For 
addresses to be absotute in fact» a program's base 
register must be zero.e. The area is broken into two 
divisions; static memory (from base register to dynamic 
memory base) which is occupied by the SDL stacks» and 
dynamic memory (from dynamic memory base to the limit 
register) which is used for virtuat data memorys i.e. SOL 
paged array page tables and resident pages. 


Run stucture nucleus 


This contains information used by the MCP and SOL 
Interpreter to implement an instance of the S-machine>» 
1eee a running SDL program. 


Code segments and segment dictionaries 


Code Segments are virtuat as in the other machines» but the 
Code Segment Dictionary is itself segmented» corresponding 
to the page~segment concept in the SDL tanguage. Each 
entry in a Master Segment Dictionary represents a page of 


segments in the source program = and points to a 
sub"dictionary with the entries for those segments. The 
Master Segment Dictionary is non-overtlayables the 


sub-dictionaries may be overlaid. 

File information blocks (FIB's) and FIB dictionary 

These appear in (virtual) memory» one FIB per open file in 
use by the running programs used by the system for 


input/output operations. 


Registers 
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These may be either in hardware registers or in memory 
depending on the state of the S=machine. The exact format 
and number of registers is important only to the SOL 
interpreter. Logically» they consist of the next 
instruction pointer (pager segments and displacement)» the 


current Lexic tevel» and the stack top pointers for alt 
stacks. Current LL and the DISPLAY stack pointer are _ the 
same register. Also in registers is enough information 


about the stacks to check for stack overflows. Underftlows 
are not detected. Registers are initialized from the 
scratchpad area of the program parameter block in the code 
file. (See MCP reference manual). This area has the 
following format in SDL code fites: 


1 SCRATCHPAD> 


2 FILLER BIT(48)> 
2 PPS.BASE BIT(24)> 
2 FILLER BITC 24)» 
2 ES.BASE BIT(24)> 
2 ESePPS.BITS BIT(24)> 
2 VS.BASE BIT(24)> 
2 FILLER BIT(24)> 
2 CS.BASE BIT(24)» 
2 CS.BITS BITC 24)> 
2 NS.BASE BITC 24)» 
2 FILLER © BIT(24)> 
(2 DISPLAYsBASE . BIT(24)> 
2 FILLER BITC4)> 

2 PROFILE.FLAG BITCL)» 

2 FILLER BITC19)> 
2 VS.BITS BITC24)> 
2 NS.BITS BIT(24)> 
2 €S.BITS BIT(24)> 
2 PPS.BITS BIT(24)3 


See the MCP Reference Manual for a more general discussion 
of code files» run structuress file information blocks» 
and the various dictionaries. These concepts are common to 
all the 81700 S-machines. Note that SDL does not make use 
of data segments and data segment dictionary» implementing 
virtual data via an SOL intrinsic instead. | 
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THE BASE*LIMIT AREA 


The space is divided as shown in the oregres belows with the arrows 
indicating the direction of growth. 


KKK KKKKKCKEKKEKEAEEKRERAEKREKEREKEKEEEREEEKEKKEKKKEKEKKKEKKKKRK REKKKSE 


ry * * * D M * 
* , * « * * VYeE * 
*VALUE NAME *DISPLAY*CONTROL*EVALUATION PROGRAM* N M * 
*STACK STACK*eSTACK «STACK *STACK STACK* A QG * 
* "> <r" « “-=-> * --> «* “-> <8 * MR * 
* * * & « [ Y * 
rd , _ ote a * *x C * 
KKK KKK KKK KKKKEKEKEKEKEKEEKEKKKKKKKKKKKKKKKKKKKKaKKEK kRkKKKKKKK Kk 
« ‘ 7 : * 
* ; * 
ax BASE.REGISTER LIMIT REGISTER #««« 
FIGURE [.-1 SDL STACKS 
VALUE STACK | Entries are values of data items», 


arbitrary in tength» the characteristics 
of which are kept in descriptors in the 
NAME and EVALUATION stacks. 


NAME STACK Entries are DATA DESCRIPTORS» 48 bits in 
Length, one descriptor for every data 
identifier which is currently active 
(not necessarily addressable) in the 
program. The descriptor for an array its 
96 bits longs occupying two NAME STACK 
entries. 


DISPLAY - The NAME STACK is divided into stack 
framess . each frame containing the 

descriptors for the names dectared in 

one invocation of a procedure. Not att 

of these stack frames contain 

descriptors which are currently 
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accessible. The display contains 
pointers into the NAME STACK» one 
pointer for seach Lexic Levelt Less than 
or equal to the current Lexic Level. 
Each pointer locates the base of the 
frame for currently addressable names at 
that fevel. These entries are 32 bits 
long. For further discussion of the 
display mechanism» the reader should 
consult literature on the imptementation 
of ALGOL 60. 


Here are the NAME STACK pointers which 
Locate the stack frames for every active 
procedure. Each time a procedure which 
requires local data or parameter 
allocations» (i.@e.» requires space on 
the NAME STACK) ts entered» a new entry 
is pushed onto the CONTROL STACK to 
point to its NAME STACK frame. Since the 
VALUE STACK contains the data associated 
With NAME STACK descriptors» it too is 
divided into frames and the base of each 
frame is recorded in the CONTROL STACK 
as it is atlocated. In addition to these 
two pointers» each entry contains’ the 
Lexic Lewel of the calling procedure and 
the Lexic Level of the current entry. 
These are used by the S=Machine to 
maintain the DISPLAY. The format of a 
CONTROL STACK entry is: 
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te KK IKKE KEKE KEE EKER KKEKKEHEREKREEKAKKKEKREEEKEKKE 
* * « * * 
* NAME STACK POINTER * EXITED * ENTERED * VALUE STACK POINTER * 
« * LL * i * * 
* * * * * 
Keke kK KKKKEEKAEKKKEKKKKaEKKEKEKKKaAKKEKKKKEKKKEKKEAERKREKKKAEKaKKEKKeEKK Ee 


20 BITS 4 BITS 4 BITS 20 BITS 


FIGURE [.2 CONTROL STACK ENTRY FORMAT 


EVALUATION STACK The EVALUATION STACK is used to hold 

data descriptors for the evaluation of 
expressions Cexpressions are compiled 
into reverse polish strings). It is also 
used to ‘build actual ' parameter 
descriptors prior to their being 
transferred to the NAME STACK for a 
procedure calt. Space for data during 
expression evaluation is allocated on 
top of the VALUE STACK which is kept up 
to date as descriptors are pushed on and 
popped off the EVALUATION STACK. 


PROGRAM POINTER STACK With the exception of the cycte operator 


used ‘for toopings all transfers of 
control in the SDL machine are done via 
call-type operators. The next 
instruction pointer is saved for 


subsequent return by pushing it onto the 
PROGRAM POINTER STACK. The format of an 
entry in this stack is: 


KKKEKKKAEKKEKKKKKKKKKKRKEKKKEKKKKKKKKKKRKRKKKKKKKkRKkK 


* ms * ns 

* SEGMENT * PAGE * DOISPLACE MENT * 

7 * rs * 

kkk kk kkk keke kkekkkkkkkkkkkkkkhkk kkk kkk tk 
6 BITS 4 BITS 22 BITS 


FIGURE I.-3 PROGRAM POINTER STACK ENTRY FORMAT 


1-7 


BURROUGHS CORPORATION : COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP | B1700 SDL S-LANGUAGE 
SANTA BARBARA PLANT PeS. #2201 2389 


DATA DESCRIPTORS 


Simple (Cscalar) descriptors are 48 bits in lengths with the 
following format: 


RAKRKEKAEKEKEEKEKKKKEKKRKEKKEKEKKKKEKKKKKEKEKKAKKKEKKKKKKKKEKRKKK KKK 


* te * 

* TYPE * LENGTH ADDRESS * 

* * * 

KERRIER EERE KE AEE EAE KKKK EEK KEREKE KEKE 
8 BITS 16 BITS 24 BITS 


FIGURE 1-4 SIMPLE DESCRIPTOR FORMAT 


The address is specified as a bit offset from the base register 
(which .js also the base of the VALUE STACK). The CLength is 
expressed in bits» regardless of the type. 


One of the bits in the type field indicates whether or not this is 
an ARRAY DESCRIPTOR. When this bit is on» an additional 48 bits of 
information ts appended giving the foltowing format: 


kkk kk&akkzk&kkKkkkkk&kkKkKkKkKkk&kk&kkkkkKhk&kkkakkkeazakkkkkakkkakkkkexaark 


* * : *« ‘ * 
* TYPE «* LENGTH OF * ADDRESS OF . 
t * ENTRY * ARRAY * 
* * * * 
RKAEKRKEKEKEKEEKEKKKKKEEKEAKKKKKKKKKKKKKKKKKKKKKKKEKKaAKEKEKAEEK 
* * , * * 
« PAGE «* LENGTH BETWEEN « NUMBER OF * 
«SUBSCRIPT* ENTRIES * | ENTRIES * 
* SIZE * * & 
& & x & 
kkk Kk ch cK KMEKEAK KARE KKK KEK KK KA EKEKKKKEREKKEKAKAKaEKKKEEK 
8 BITS 16 BITS 24 BITS 


FIGURE I-65 ARRAY DESCRIPTOR FORMAT 


The. Page Subscript Size is only used when the PAGED ARRAY bit is on 
“in the type field. It specifies the number of bits to shift an 
Array Subscript to obtain the corresponding Page Subscript (Page 
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Sizes are always a power of two in SDL). 


The length between entries is the difference between the address of 
one element and the address of the previous elemente This must be 
greater than or equal to the tength of one entry. 


The Type Field of a descriptor has a singte format» even though some 
bits are not meaningful in all contexts. 


BURROUG 
COMPUTE 
SANTA 8B 
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RKEKEKKKKKEKKKKKKKKKKKKKKKKKKEKKKKKEK 


te 

« 0 

* 

KkK* 
* 


a 


« x * *& & * * * 
* 1 « 2 «© 3 & hk & 5 & &§ & 7 & 
« «x *« & « & *« *« 
RKMMKKAKKEKKEKKKKAKKAKKKKKKKEKKKKKKK 
* of *& * x « « 
* * * tt * t co 
* * * kkk Sl week J => Length VARYING(*#) 
*« * * * ; : 
*« * * * 7 
* * * * kee 1 => PAGED array (bit 2 must 
* * * * - also be on) 
* * * *& ; 
* * * xxx data type: 00 => BIT 
* * * O01 => FIXED 
* - 10 => CHARACTER 
* * * 11 => type VARYING(*) 
k * *« 
* * #exe 1 => contiguous array 1-e@.» Length between 
* * elements = length of one element. (bit 
* * 2 must also be on.) 
*& * 
* wee 1 => array 
* 


* 
* 
» 
— 


0 => self-relative 


** name-value bit 1 => vatue 
0 => name 


Cused only when the descriptor 


1s on the EVALUATION STACK) 


(*) Only used in the type field of in-line 


descriptors which are arguments of a COFC operator 
and in the argument to a RTNC operator. The CODFC 
operator also uses BIT 6 in a different ways it 
indicates a varying array bound. In-line 
descriptors for other operators use BIT O to 
indicate the presence of ae fitter field. See 
IN“LINE DESCRIPTOR FORMAT. 


FIGURE 1-6 DESCRIPTOR TYPE FIELD FORMAT 


=> non-selferelative (must be on if bit 2 


is on) 
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When the data itself is 24 bits or tess in lengths it may be 
contained directly in the address portion of the descriptor» thus 
requiring less storagee In this case» the descriptor is said to be 
self-relative and the nonwselferelative bit is off. 


The use of the NAME“VALUE BIT is to distinguishs in the EVALUATION 
STACKe between descriptors which had an associated value loaded on 
the VALUE STACK when they were pushed on the EVALUATION STACK» and 
those which did note. The purpose is to signal that a data item 
should be cut back from the VALUE STACK whenever this descriptor is 
cut back from the EVALUATION STACK. The bit can only be set in 
non-selfr-relative descriptors. 
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P AGED ennnt DESCRIPTORS 


When the PAGED bit is on in an array descriptor» the address’ field 
of the descriptor does not point directly to the arrays but rather 
is initialized to zero. An array load operator CALA» AL) will then 
detect the first access to the array and invoke the SOL virtual 
memory manager to build a page table in dynamic memory. This table 
wiit be nonoverlayable and the descriptor address fieid wilt be 
set to the page table address. The table contains one entry per 
array pages each with the format below: 


RREKKKAEKKKKKKKKKKKKKaAKaAKEKKKKKkEKEKKKKKEKEKAKKKKK 


* * te 

* STATUS * ADDRESS * 

k x & 

SR KK EK EK ERE REEMA EEERERES 
4 BITS 24 BITS 


FIGURE Ie? PAGE TABLE ENTRY FORMAT 
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STATUS FIELD 


bit 0 presence bit 1 => address is base relative memory 
address 
0 => address is disk address 


bit 1 to be read only 1 => the next time this page is 
rolled outs turn this bit off 
and bit 2 one 


bit 2 read only 1 => this page may be overlaid 
without rotling it out to disk. 
bit 3 unused 


An address field of zero indicates that this is a previously 
unaccessed page and may be created without need for a rotlin. 
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DATA ADDRESSES 


The S-Language addresses data via descriptors on the NAME STACK. At 
any point in an SOL program every accessible data item may be 
described by the Lexticographic Level at which it was declared and 
its ordinal location Coccurrence number) within the declaration 
section at that tevel. A data address» then» consists of these two 
numbers which uniquely locate a descriptor in the NAME STACK. 
Addressing is done by using the DISPLAY to locate the NAME STACK 
frame corresponding to the required Lexic Level» and the occurrence 
number to locate the descriptor within that frame. For compactnessp 
data addresses have a type field which indicates the sizes of the 
other fields» as indicated below: 


RKKKKKKKKKEKKKKKKKKKK KKK KKKKKKKKKKKaEKKEKKEKKKEKEKEKEKEREK 


* * * * 
TYPE « LEXIC LEVEL * OCCURRENCE NUMBER * 
* te * x 
Ke KK EKEREKEKEK EKER KEKE KKK EKER KKK KEKE EEE 
2 BITS 1/4 BITS 5/10 BITS 


FIGURE [2-8 DATA ADDRESS FORMAT 


TYPE LEXIC LEVEL BITS OCCURRENCE NUMBER BITS TOTAL BITS 
00 4h 10 16 
01 4 | 5 | 11 
10 1 10 13 
11 1 5 8 


When only one bit is used for Lexic Level» 0 means Lexic Level 0O and 
1 is taken to mean the current Lexic Level» whatever it may be. 
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CODE ADDRESSES 


Code addresses appear as arguments of operators which effect 
transfers of control. They are divided into three parts: the page 
number which selects the segment dictionary page» the segment 
number which selects the segment dictionary entry within that pages 
and the displacement which specifies a bit offset within the 
segment. For compactness» these numbers are encoded in different 
field sizes depending on a type field. 


aKa EKER EEE EKEKKEKKKEKEHAMEKEEKEEKEEEKEEKKEKKKKEKKEKKEKEEKKEKKEEKKEK 


* * *& * * 
« TYPE * SEGMENT * PAGE * DISPLACEMENT * 
* * * « * 


RAKE KAKEEEKEKEKEKK KK KEK KE KK KEKE KEKEKKEKKKAKKKKKEKEKKEKKEKKEKEK KKK KEK 


3 BITS 0/6 BITS 0/4 BITS 12/16 BITS 


FIGURE I[.-9 CODE ADDRESS FORMAT 


TYPE SEGMENT BITS PAGE BITS OISPLACEMENT BITS TOTAL BITS 


000 CURRENT CURRENT i2 15 
001 CURRENT CURRENT 16 19 
010 6 CURRENT 12 21 
O11 6 CURRENT - 16 25 
100 6 4 i2 25 
101 6 4 16 29 
110 6 hy 20 33 


111 NULL ADDRESS 


The Null Address (Type 111) ts onty used by the CASE operator = and 
the length of the other fields is the same as the length of those 
fields in the other arguments to the case. The other fields are not 
used and are all zero. 
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CUNTROL STACK MECHANISM 


* * t & * 
«*« kk * * « 
« k k « « 
* * * * * CONTROL 
* * « * * STACK 
* * * * * 
* « & « * 
* * * * * 
« 20 Bits the kh & 20 Bits « 
ck eae ew ee mw eee ore kek SM kf kk Sew ewe een acces “- & << & 
* NAME STACK POINTER* * * VALUE STACK POINTER® * 
KKK KKK KKKKA KEKE KEKKKKEKEKEEKEKEKEEKEKEKEKK KK KEK KEKKKKKaEK * 
*« « x 
* * ; * 
EXITED LEXIC LEVEL «*** we xeENTERED LEXIC LEVEL * 
CONTROL 
STACK 
POINTER 
CURRENT CONTROL REGISTER 
20 Bits 4 Bits 4 Bits 20 Bits 
KKK KKK KKK KKK KEKE KEKKEKEKKEKEKEKEKEKKEKKEKKEEKEKKEKEKKKKEKKEKKKKAKKKEEKKKK 
*« * * * *x 
«* CURRENT NAME STACK PTR« * * CURRENT VALUE STACK PTR * 
* k& & * x 
HMM MMMM KAKKKKKKKKKKKKKAKEKEKKEKAKEKKKKKKKKKKKKKEKRKKKKKKKKKkk&kkkk kk 
kk * 
* **FILLER 


CURRENT LEXIC LEVEL *«#« 
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The following SOL declaration is used by algorithms shown under the 
operators which affect the CONTROL STACK. 


DECLARE 
O01 CONTROL.STACK (CS.SIZE) BITC48)>» 
O02 CS.NSP BITC20)> 
O02 CS-EXITED-LL BITC4)>» 
O02 CS-ENTEREO.LL BITC4)>» 
O02 CS.VSP BITC20)> 
01 CURRENT.~CONTROL BIT(48)>» 
O02 CURRENT.NSP BIT(20)>» 
O2 CURRENT.~LL BITC4)>» 
O2 FILLER BITC4)>» 
02 CURRENT.VSP BIT(20), 


CCSP»TCSP) FIXED; 


CSP2=03 


1-17 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP Bi700 SOL S*LANGUAGE 
SANTA BARBARA PLANT P.Se #2201 2389 


The SOL operators that use the CONTROL STACK mechanism are: 


MKS - MARK STACK 

COFM = CONSTRUCT DESCRIPTOR» FORMAL 

COFC = CONSTRUCT DESCRIPTOR» FORMAL CHECK 
MKU - MARK STACK AND UPDATE 

EXIT - EXIT 

RTRN = RETURN 

RTNC = RETURN FORMAL CHECK 


XTEI = EXIT» ENABLE INTERRUPTS 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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IN-LINE DESCRIPTOR raale i 


as CONSTRUCT DESCRIPTOR OPERATORS 


SIMPLE DESCRIPTOR 


Notes: 


8 BITS 6/17 BITS 6/17 BITS 
kkk KKKK KKK KKK KKK aK KKK hhh Kh hk 
* TYPE * LENGTH * FILLER * 


RKKKKKKKKKEKKKKKEKKKEKKEKKKKKKKKKKkKKkKKEKKKKKKEK 


«ee OPTIONAL 


1. The fitler option is present onty when bit O of 
type field is on (=1). 


2- Bit 2 of the type fietd is off (=0). 


ARRAY DESCRIPTOR 


8 BITS 6/17 BITS 6/17 BITS 


RAK KCK KEKEKKKEEKKKK KKK KEKE KEKKKKaEK KKK KKEKKKKEKKKKKK 


* TYPE * LENGTH OF ENTRY «& FILLER * 


RHEUM KEKKKEKKEEKKKEKEKEKKKKKEKKKKKKKEKKEKEKEKKKKKKRaEKKK 
& 


OPTIONAL 
ra 
kkkkk kk kkk kk kk khkkatkk kk kk kkk tk 


* * 
6/17 BITS 8 BITS 6/17 BITS 

TT eSCETOLESC OC COCL CSC CSOL SCS CC CSS CS LOSE COLL oS Sf 

* LENGTH BETWEEN * * NUMBER OF ENTRIES « 


KKM MEK KKK KK EKKEKEEKHEKKKEKKKKKKKKKKKKKKkKKEKKKEK 
*® 
* 


*kx* For paged arrays» this is the 


the 


number of bits of the subscript 


1-19 


BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1700 SDL S*LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


Notes: 


needed to obtain the page 
subscript (See AL: Array Load). 


The filler option is present only when bit 0 of the 
type field is on (=1). 


The length between option is present onty when bit 
three of the type field is off (=0). 


Bit two of the type field is on (=1). 


The page subscript size fieid is present only when bit 
six of the type field is on. 


If bit six of the type field is ons then bits zero and 
three will be off. 


The fietds marked "6/17 BITS" are encoded as fottows: 


First Bit Meaning 
0 5 bits follow 
1 16 bits foltow 
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USE OF THE EVALUATION STACK 


Many of the SOL S-ops take operands from or leave results on the 
EVALUATION STACK. In facts» only the descriptor of the operand is on 
the EVALUATION STACK itself while the datas that iss the value of 
the operands may be in the descriptor or elsewhere in the 
base-lLimit areae Conceptually» however» it is an operand with which 
the Sop is dealing. There are two classes of operands or results 
which may be on the EVALUATION STACK: 


Address operands: 


The descriptor is a pointer to the value of a dectared 
data item. The descriptor on the EVALUATION STACK 15s 
nonsselfrrelative and its namecvalue bit is off. This type 
of operand ts appropriate for use as the destination of an 
Stop which moves data. 


Value operands: 
There are two classes of vatue operands. 
Selferelatives: 


The descriptor on the EVALUATION STACK is marked 
self-retative and its namervalue bit is off. 
Instead of the address field of the descriptor 
being a pointer to the data» the data itself is 
contained in the address field of the descriptor. 


Non~selfrrelative: 


The descriptor on the EVALUATION STACK is marked 
non-selfrrelative and its namesvalue bit is. one 
The data ts on top of the VALUE STACK» located by 
the address field in the descriptor. When this 
type of operand is removed from tae EVALUATION 
STACK» its value is removed from the VALUE STACK 
as well. 


Value operands are temporary values as opposed to actual 
vartables of the program. 
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A particular Sop often requires that its operands be of a 
particular classe It does not make senses for examples for the 
destination operand of a STOO Cstore destructive) to be a value 
operand. Some Stops put other restrictions on their operands» 
usually concerning type or tength. Unless specifically indicated, 
these restrictions are not checked by the interpreter but» if not 
met» the results of the operation are undefined. 
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INSTRUCTION SET 


Up codes are fours» six» ten or thirteen bits in length. The Lengths 
have been assigned according to static frequency of the Stops» thus 
compacting code space as much as possible. 


RELATIONAL OPERATORS 


NAME MNEMONIC OP CODE ARGUMENTS 
EQUAL TO | E QL 1010 01 

LESS THAN LSS 1111 01 1010. 

LESS THAN OR EQUAL TO LEQ 1111 00 1110 

GREATER THAN GTR 1111 00 1001 

GREATER THAN OR EQUAL TO GEQ 1111 00 1101 

NOT EQUAL TO NEQ 1010 10 


ARITHMETIC OPERATORS 


NAME MNEMONIC OP CODE 
ADD | ADD 1011 01 
SUBTRACT SUB 1011 10 
MULTIPLY MUL 1111 00 0101 
DIVIDE DIV 1111 00 0110 
MODULO MOD 1111 00 0111 


REVERSE SUBTRACT RSUB 1111 10 1100 


BURRUUGHS CORPORATION 
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REVERSE DIVIDE 
REVERSE MODULO 


NEGATE 


CONVERT TO DECIMAL 


CONVERT TO BINARY 


RDIV 


RMOD 


NEG 


DEC 


BIN 


EXTENDED ARITHMETIC OPERATORS 


EXTENDED ADD 
EXTENDED SUBTRACT 
EXTENDED MULTIPLY 
EXTENDED OIVIDE 


EXTENDED MODULO 


LOGICAL OPERATORS 


EXCLUSIVE-QR 


NOT 


MNEMONIC 


XADD 


XSUB 


XMUL 


XDIV 


XMOD 


MNEMONIC 


AND 


OR 


EXOR 


NOT 
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P. 


1111 10 1101 
1111 10 1110 
1111 01 0111 
1111 10 1000 


1111 10 1001 


OP CODE 


1111 11 1100 


1111 11 1100 


1111 11 1100 


1111 112 1100 


1111 11 1100 


OP CODE 


1111 00 0001 
1111 00 0000 
1111 00 0010 


1111 00 1011 


Se 


O11 


100 


101 


110 


111 


#2201 2389 
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STRING OPERATORS 


CONCATENATE 


SUBSTRING 


SUBSTRING 


SUBSTRING THREE 


STORE OPERATORS 


NAME 


ONE 


TWO 


STORE DESTRUCTIVE 


STORE NON-DESTRUCTIVE LEFT 


STORE NON-DESTRUCTIVE RIGHT 


MNEMONIC 


CAT 


SSL 


952 


553 


MNEMONIC 


2TOD 
SNDL 


SNDR 


CONSTRUCT DESCRIPTOR OPERATORS 


CONSTRUCT 


CONSTRUCT 


CONSTRUCT 


CONSTRUCT 


CONSTRUCT 


BASE ZERO 


LOCAL DATA 


FORMAL 


FORMAL CHECK 


FROM PREV. 


MNE MONIC 
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Pe«S 


OP CODE 


1100 11 
1111 11 0100 
1111 00 1000 


1010 00 


OP CODE 
0010 
1010 11 


1111 00 0100 


OP CODE 


1111 10 0100 


1110 00 


1111 01 0001 


1111 11 1101 000 


1110 10 
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To Ve QeL 
TeV 


TeV 


ARGUMENTS 


ARGUMENTS 


DESCRIPTOR 


N » DES#1lrewcer 
DES#n © 


LLeE 


LL>oE»DES#1>...» 
DES#n 


N» DES&lreces 
DES#@N 
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CONSTRUCT DES. 
& ADD 


CONSTRUCT DES. 
& MULTIPLY 


CONSTRUCT DES. 


CONSTRUCT DES. 


CONSTRUCT DOES. 


LOAD OPERATORS 


MAKE DESCRIPTOR 


FROM PREV. 


FROM PREV. 


LEXIC LEVEL 


-REMAPS 


DYNAMIC 


VALUE DESCRIPTOR 


DESCRIPTOR 


NEXT OR PREVIOUS ITEM 


LOAD 


LOAD ADDRESS 


ARRAY LOAD VALUE ~ 


ARRAY LOAD ADDRESS 


INDEXED LOAD: VALUE 


INDEXED LOAD ADDRESS 


LOAD LITERAL 


LOAD NUMERIC LITERAL 


CDAD 


COMP 


COLL 


CORM 


CDOY 
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1110 01 N> DES#1>..e> 
DES#n 
1111 10 0101 N>DES#L > sees 
DES#n 
1111 10 0011 TYPE“LL-OC> 
DESCRIPTOR 
1111 00 1111 DESCRIPTOR 
1111 11 1110 000 TYPE 
oP CODE ARGUMENTS 
1111 10 1010 
1111 01 1000 
1100 10 TYPE-LL-OC 
1111 01 1101 V> TYPE-LL-OC 
1101 00 TYPE=LL-0C 
0000 TYPE“LL=0C 
1111 01 1100 TYPE-LL-OC 
1101 01 TYPE-LL-OC 
1111 01 0000 TYPE“LL-OC 
0001 TYPE=LL-OC 
0100 TYPE, LENGTHs 
| LITERAL 
0011 LITERAL 


BURROUGHS CORPORATION 
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LOAD NUMERIC ZERO 


LOAD NUMERIC ONE 
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ONE 0110 
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STACK OPERATORS 


BUMP VALUE STACK POINTER 
DUPLICATE | 

DELETE 

EX CHANGE 


FORCE VALUE STACK 


PROCEDURE OPERATORS 


If THEN 
IF THEN ELSE 


CASE 


UNDO 
UNDO CONDITIONALLY 
RETURN 


RETURN FORMAL CHECK 


MNEMONIC 


BVSP 
DUP 
DEL 
XCH 


FVS 


MNEMONIC 


CALL 
IFTH 
IFEL 


CASE 


UNDO 
UNDC 
RTRN 


RTNC 


oP 


1111 
1100 
1111 
1011 


1100 


1101 
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CODE ARGUMENTS 

10 1011 

00 

00 0011 

00 

01 

CODE ARGUMENTS 
TYPE-SEG- 
PAGE-DISP 
TYPE-SEG- 
PAGE-DISP 

10 ADDR TYPEsTYPE- 


1111 


1000 
1111 
4111 


1111 


SEG*PAGE*DISP 

01 0100 # OF ADDR» ADDR 
TYPE» TYPE~SEG- 
PAGE*DISP»...» 
TYPE*SEG=PAGE= 
DISP 
# OF LEVELS 

01 0011 # OF LEVELS 

01 0101 # OF LEVELS 


11 1101 001 # OF LEVELS, 
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EXIT 

CYCLE 

MARK STACK 

MARK STACK AND UPDATE . 
ENABLE*DISABLE INTERRUPTS 
EXIT“ENABLE INTERRUPTS 
COUmROUTINE ENTRY 


CO“ROUTINE EXIT 


SEARCH & SCAN OPERATIONS 


SEARCH SDL STACKS 
SEARCH LINKED LIST 
SEARCH SERIAL LIST 
SORT SEARCH 

THREAD VECTOR 
INITIALEZE VECTOR 
SORT STEP DOWN 
SORT SWAP 

SORT UNBLOCK 


DELIMITED TOKEN 


M 


EXIT 
CYCL 
MKS 
MKU 
EDI 
XTET 
CNTR 


CXIiT 


NEMONIC 
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P. 


1101 11 

1110 11 
1011 11 

1111 01 1111 
1111 11 0101 
1111 11 0110 
1111 11 1010 


1111 11 1010 


OP CODE 
1111 11 1110 
1111 01 1010 
1111 11 1000 
1111 11 1011 
1111 11 1011 
1111 11 1011 
1111 11 1011 
1111 11 1011 
1111 11 1011 


1111 11 1001 


Se #2201 2389 


TYPE»LENGTH 
# OF LEVELS 


DISPLACEMENT 


LL 

V 

V>o# OF LEVELS 
000 


001 # OF LEVELS 


ARGUMENTS 
001 

COMPARE TYPE 
000 COMPARE TYPE 
100 
001 
000 
010 
101 
011 


001 TYPE~LL~OC> 
DEL1» DEL2 
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NEXT TOKEN NTKN 1111 11 1001 000 TYPE-LL-OCc> 
7 SEPARATOR» V 
DEBLANK DBLK 1111 11 1001 010 TYPE-LL-0C 
CHARACTER FILL CHFL 1111 11 1001 100 
TRANSLATE XLAT 1111 11 1110 101 
FIND DUPLICATE CHARACTERS — FDUP 1111 11 1001 011 
MISCELLANEOUS OPERATORS 
NAME MNEMONIC OP CODE ARGUMENTS 
TRANSFER MESSAGE XFRM 1111 11 1010 010 DEST.VARIABLES. 
SOURCE VARIABLE 
HASH CODE. HASH 1111 11 1000 001 
SWAP SWAP 1111 01 0110 
FETCH FECH 1111 00 1100 
FETCH ANO SAVE FECS 1111 11 1110 O11 
DISPATCH DISP 1111 01 1011 
HALT HALT 1111 11 0010 
READ CASSETTE RDCS 1111 01 0010 
LENGTH LENG 1111 10 0000 
LOAD SPECIAL: LsP 1111 01 1110 VARIANT 
CLEAR ARRAY CLR 1111 10 0111 
COMMUNICATE COMM 1111 10 0110 
REINSTATE REIN 1111 10 0001 
FETCH CMP FCMP 1111 10 0010 


BURROUGHS CORPORATION 
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DATA ADDRESS 

SAVE STATE 

HARDWARE MONITOR 
OVERLAY 

PROFILE 

PARITY AODRESS 

EXECUTE 

COMMUNICATE WITH GISMO 
ADD TIMER 


SUBTRACT TIMER 


ADDR 


SVST 


HMON 


OVLY 


PRFEL 


PADR- 


EXEC 
CWG 
ADDT 


SUBT 


1111 
1111 


1111 


1111 


1111 
1111 
1111 
1111 
1111 


4111 


diag 
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01 
11 
11 
11 
10 
il 
11 
11 
11 


11 


P. 


1001 
0001 
0011 
0000 
1111 
0111 
1110 
1110 
1100 


1100 


Se 
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ENTRY NUMBER 
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RELATIONAL OPERATORS 


NAME 
EQUAL TO 
LESS THAN 


LESS THAN OR EQUAL TO 
GREATER THAN 
GREATER THAN OR EQUAL TO 


NOT EQUAL TO 


MNEMONIC 
EQL 
LSS 
LEQ 
GTR 
GEQ 


NEQ 


S71 
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op CODE ARGUMENTS 
1010 O12 
1111 01 1010 
1111 00 1110 
1111 00 1001 
1111 00 1101 


1010 10 
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RELATIONAL OPERATORS 


Kaek&KkEKAKKKKKEKK 


* EQL * NEQ * 


KEKKAKEKERAKEKEK 


* GTR * LSS * 


kkk kk hk kkkkeake 


* GEQ * LEQ * 


KkKk&KAEKKKKKKKK EK 


Syntax: 
E QL Equal to (=) 
NEQ Not equal to (_) 
GTR Greater than (>) 
LSS Less than (<) 
GEQ Greater than or equal to (*) 
LEQ Less than or equal to (\) 

Format: 

EQL NEQ GTR LSS 


KKKKKKKKKKK KRKaeKKKKKKKKK KkkKKkKKkKKkKKkKKkKik: kRk&KKKKKEKKKKKKKEKEK 


* 1010 01 * * 1010 10 * * 1111 00 1002 *® * 1111 00 1010 * 


kkkkkknkknkak kKiktkazkkxkkk kek tk kk & keke eEKKk&KKKkKKKKK & REKKEKKKKKKEa KKK KEK K 
0OP-Code OP-Code OP“Code OP-Code 
GEQ LEQ 


kK KKK KREME KK NRK Kkkkkkkkkkkekhkkik 


* 1111 00 1101 * * 1111 00 1110 * 


wKkKk kkk kkk kk kk kkk KKkKkKkKKkKkKKKKKkKkKKE 


OP-Code OP-Code 


ae Two operands are expected to be on top of the 
EVALUATION STACKe The tower operand is considered _ to 
be on the Left side of the relation» while the top 
operand is considered to be on the right. 
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be The relational operators do a comparison between two 


operands of any data type. The operands are removed 
from the stack and a self-relative descriptor of a 
l-bit result is returned whose vatue ts: 


1. When the condition is true = a(€1)1a 


2- When the condition is false = a(1)02 


When both operands are FIXED» the operator does a true 
signed arithmetic compare. 


When both operands are character strings» the compare 
is done from left to rights using blank fill on the 
right for the shorter string. 


For alt other operand combinations leading zeros’ are 
supplied to the shorter of the two fields. No sign 
analysis 1s done and the operands are treated as 
positive magnitudes. 
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ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

MODULO 

REVERSE SUBTRACT 
REVERSE DIVIDE 
REVERSE MODULO 
NEGATE 

CONVERT TO DECIMAL 


CONVERT TO BINARY 


MNEMONIC 


ADO 
9UB 
MUL 
DIV 
MOD 
RSUB 
ROIV 
RMOD 
NEG 
DEC 


BIN 
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P.Se 


OP CODE 


1011 
1011 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 


1111 


01 | 


10 


00 


00 


00 


10 


10 


10 


01 


10 


10 


0101 


0110 
0111 
1100 
1101 
1110 
0111 
1000 


1001 
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ARITHMETICS 


kkk kK KkKkKKKKEK 


* ADD * SUB * 


kkekkkkkkakkak 


* MUL * DIV * 


wkaekkkkkkkkikk 


«x MOD « « 
KkakkKkkKkkkkk ke 
ADDITION 
SUBTRACTION 
MULTIPLICATION 
DIVISION 


MODULO 


syntax: ADD 


SUB 
MUL 
OIV 
MOD 
Format: 
ADD SUB MUL DIV 
kkk&tkkkkkkerk kKKKkKKEk&K KK KE K &kak&KKKAEKKKK KkeEkKKK KKKKkKkKKaAkKKK&Kzk&KKE: 


* 1011 01 * * 1011 10 * * 1111 00 0101 *® * 1111 00 0110 * 


ka&KKKKKEKkKKEK KKkKkKkKKKKKEKK kKKkKaEKKKKKKKKKKkKKK KKEKKKKKKKEKKKKKKE 


OP-Code OP -Code 0P-Code OP-Code 


MOD 


wREKAEKEKEKKKEKKKKEK 


* 1111 00 O111 * 


XKKAEKKKKKKKKKKKSER 


OP-Code 
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Function: 


Two 


The 
two 


Sign 


of 
the 


For 


than 


operands are expected on the EVALUATION STACK. 


The bottom operand is considered to be on the 
"Left" stde of the operator. 


The top operand is considered to be on the “right”. 


arithmetic operators perform 24-bit arithmetic on 
operands. These operands may be of any data type. 


analysis wilt only be done if both operators are 
type FIXED. With any other data type combinations» 
magnitudes of the operands are evaluated. 


bit and character datas» if the fietd is greater 
24 bitse only the tow order 24 bits will be 


evaluated. When the field is less than 24 bits» zeros 
will be supplied on the left. 


Both operands ar@ cut back. 


A 


24 bit seltfr-retative result its returned to the 


EVALUATION STACK. When both operands are type FIXED> 


the 


the 


ADD 


SUB 


MUL 


DIV 


DIV 


result wilt be type FIXED. In att other instances 
result will be of type BIT. 
performs integer addition (+) 
performs integer subtraction (7) 
performs integer multiplication (*) 


performs integer division (/) 


results in an integer value. Any remainder is 


truncated. 
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17/8 = 2 
3/7 = 0 
“7/3 =72 


The MOD operation is division resulting in the integer 
value of the remainder. It 1s evatuated by the 
following formulas 


Y MOD Z = Y°CCY/Z)*Z)» using integer value of h. above 


For example: 


7 MOD 3 


7-€07/3)*"3) = +1 


-7 MOD 3 


C-79-000"7)/35)"3) = -1 
3 MOD -7 = 39 003/077) )"C"7)) = 3 
“3 MOD “7 = (73)"C0€073)/097))"€°7)) = =3 


Note that this is NOT the same as the conventional 
mathematical definition of MOD. 
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CONVERT TO BINARY 


~Syntaxs 


Format: 


BIN 


eke nken 


* BIN * 


k&akaknteek 


KkKKKKKKKKKkKKkKkKK 


* 1111 10 1001 * 


KRaKKAKKEKKEKE KKK. 


OP"Code 


Function: 


An operand of one (1) to eight (8) characters is 
expected on the EVALUATION STACK. 


These characters are assumed to be numeric decimal 
digit characters. 


The Characters are treated as the decimal 
representation of an unsigned integer and are 
converted to the corresponding positive 24-bit binary 
number. 


A self-relative descriptor» of type BIT is left on the 
EVALUATION STACK with the binary value. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CONVERT TO DECIMAL 


Syntax: DEC 


Format: 


kak aah a Kk kk kk kek & 


* 1111 10 1000 « 


KKKXKKKKEKKKKKKKEKK 


OP-Code 


Function: 


ae Two operands are expected to 


STACK. 
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wakkkxKkek 


« DEC * 


wkaek&kke kek 


on the EVALUATION 


1. The top operand should yield a value of one (1) 


to eight (8). 


a) If not 1-8>» 


2- The second operand should 


a) If tess than 
on the teft. 


b) If more than 
bits will be 


be The 24-bit value is 
unsigned. 


24 bits»s 


24 bitss 
used. 


assumed 


ce Both operands are cut back. 


a value of eight (8) will be used. 


24 bits in tength. 


zero fill is provided 


then onty the low order 24 


be type BIT» i.e. 


de Depending upon the value of the top descriptor on the 


3710 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1700 SDL S*LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


EVALUATION STACK a1 to 8 character result is left on 
top of the EVALUATION and VALUE STACKS. These 
characters are the decimal representation of the 
24-bit value. 


Leading zeros in the result are not changed to blanks. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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NEGATE 


Syntax: 


Format: 


NEG 


e€xaeekakK 


* NEG * 


ck&kxkr kk ae 


kkk kkk kkkKkKkkaekak 


* 1111 01 O111 * 


kKaKkKkKKKKKKKKKKKKK 


GP-Code 


Functions: 


This operator pops an operand off the EVALUATION 
STACK» negates it» and pushes it back on top of the 
EVALUATION STACK as a FIXED» selfrrelative result 
which is the two's complement of the operand. 


Operands of any type other than FIXED are treated as 
FIXED. 


1. Oata items shorter than 24 bits are padded 
on the left with zeros (0). 


2- Oata items tonger than 24 bits are teft-truncated 
and treated as FIXED. 
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REVERSE ARITHMETICS 


syntax: RSUB 
ROIV 


RM0D 


Format: 


RSUB 


REKKKKKKKKKKKKKK 


* 1111 10 1100 * 


krekkkkakkkkkkkkkk 


OP-Code 
Function: 
Ae Thes 
corr 
is 


1. 


kkkkkkkk&kkkkkke 
* RSUB * RDIV * 
tkkktkhkkkikkik 


*« RMOD «* * 


KkKkekk&kk&kkkkkkkkk 


ROIV RMOD 
kkkkkikkkkkikhik kkkkk ki kkkkhkhhik 
* 1111 19 1101 * «* 1111 10 1110 * 
kkkkkkkkkkkkkhhhke kkekhkkkkkk kkk 


OP-Code OoP-Code 


e operators perform the same operation as’_ their 
esponding “forward” operators. The only difference 
the order of the operands in the EVALUATION STACK. 


Reverse subtract: The second operand in the 
EVALUATION STACK is subtracted from the operand on 
top of the stack. , 


Reverse divide: The second operand in the 
EVALUATION STACK is divided into the operand. on 
top of the stack. 


Reverse modulo: The second operand in the 
EVALUATION STACK is divided into the operand = on 
top of the stack to obtain the residue. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


EXTENDED 


EXTENDED 


EXTENDED 


EXTENDED 


EXTENDED 


EXTENDED 


ARITHMETIC GPERATORS 


ADO 


SUBTRACT 


MULTIPLY 


DIVIDE 


MODULO 


MNEMONIC 


XADD 
XSUB 
XMUL 
XDIV 


XMOD 
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P. 


OP CODE 


1111 
1111 
1111 
1111 


1111 


11 


11 


11 


11 


11 


1100 
1100 
1100 
1100 


1100 


Se 


011 
100 
101 
110 


111 


#2201 2389 


ARGUMENTS 
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EXTENDED ARITHMETIC OPERATORS 


Syntax: XADO 
XSUB 
XMUL 
XOIV 


XMOD 


Format: 


XADD 


kKxkaAKKKE KK KK kak KKKEKEKK 


* 1111 11 1100 O11 * 


KkkKKKKKkKkKKKkkKKkKKkKKkKK & 


OP-Code 


AMUL 


KakKKKkKKKKKKKkKKKKKKKKK 


* 1111 11 1100 101 * 


KKkKaKKKKKKKKkKKKkKkK KKK 


OP-Code 


XMOD 


KKKKKKAKKKEKKKKKKKKKKEK 


* 1111 11 1100 111 * 


wRKEKEKEKKEKEKKKKKKEKKEKE 


O0P-Code 


XSUB 


kkeazkkakkkekkkkee ke kkkkkeek 


* 1111 11 1100 100 * 


kKkeikk&tkkkkkaxkkKkKaekKk kek kk 


OP-Code 


XDOIV 


KKKKKKKKKEKKKKKKKKaARKEK 


* 1111 11 1100 110 * 


KKKKKKKKKKKKKKKKKKKK 


OP-Code 


kae&k&tk kkk hkaethkeekn 


* XAODD * XSUB * 


KaeaAKKEKEKKKAEREK SE 


* XMUL * XOIV * 


k€eeaeaaekekekaezaaete 


* XMOD * * 


KER KKEKEKEKEKEEKEKEKEER 
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Function: 


Ce 


Two operands are expected to be on the EVALUATION 
STACK. 


The operands are popped from the EVALUATION STACK and 
the indicated operation is performed on the operands. 


The operands are always treated as bit strings. 


The result returned on the top of the EVALUATION STACK 

is noneselfrrelatives type BIT. 

Addition/Subtraction 

1. If the two operands are of different lengths» then 
the shorter is padded on the teft with binary 
zeros. 

2. The tength of the sum/difference wilt be equal to 
the Length of the longer operand. 


Multiplication 


1. The tength of the product will be the sum of the 
lengths of the two operands. 


Division/Modulo 


1. The tength of the result will be the length of the 
dividend. 


2- For the Modulo operators the dividend must be 
non=selfrrelative. 
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LOGICAL OPERATORS 


NAME 7 MNEMONIC OP CODE 

AND AND 42111 00 0001 
OR OR 1111 00 0000 
EXCLUSIVE-OR EXOR 1111 00 0010 


NOT NOT 1111 00 1011 
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LOGICAL OPERATORS 


Syntax: AND 
OR 
EXOR 
Format: 
AND 


kkKaKKKKKkKKKkkKKiK 


* AND * EXOR * 


KReRKKKEKEKKKKKEK 


« OR * * 


RKEAKKKKKEKEKKEKREK 


OR EXOR 


KAKKK Kk kK KK KEKE K KkakEKKKKKKKKKKKK KAKKKKKKKKKKKKKK 


* 1111 00 0001 * »* 1111 00 0000 * * 1111 00 0010 * 


KRKKKKKAKKKkKKKkKKK RaKKKKKEKKKKKKK KKK kkk KkKKKKKKEKEKKEKEK 


OP<-Code 


Function: 


OP"-Code OP "Code 


"NOT" 1s unary operator and is explained separately. 
Alt other logical operators expect two operands to be 
on the EVALUATION STACK. 


The operandssr regardless of their types are operated 
upon bit by bits» starting from the right. When the 
operators are of unequal tength the shorter one is 
padded on the left with zeros. . 


The tength of the result ts the tength of the longer 
operand. When the result is 24 bits or tesss the 
result is selfrrelative. on the VALUE STACK. 


The result ts always type BIT. 


The two operands are cut back from the EVALUATION 
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STACK and the result is pushed onto the EVALUATION 
STACK. 
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LOGICAL NOT 


Syntax: 


Format: 


NOT 


wkKakkkke 


* NOT « 


kaekkkkk 


WwHRKaKKEKKKEKEKKEKE 


* 1111 00 1011 * 


wKKAKKKKAKKaAKKKK 


OP=-Code 


Function: 


This operator expects one operand to be on the top of 
the EVALUATION STACK. 


The result is of the same type and Length as the 
operands but each bit representing the result value is 
the one's complement of the corresponding bit of the 
operand. 


I f the operand is self-relatives the result wild be 
self-retative, otherwises. the result will be 
non-selfrrelative. 


BURROUGHS CORPORATION 
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STRING OPERATORS 


CONCATENATE 
SUBSTRING ONE 
SUBSTRING TWO 


SUBSTRING THREE 


MNEMONIC 


CAT 
SS$1 
S52 


533 


oP 
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1100 


1111 


1111 


1010 


CODE 

i1 

11 0100 Te VrQoL 
00 1000 TsV 

00 TsV 
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STRING CONCATENTATION 


Syntax: CAT 


Format: 


KRKKKKKEKKKEKK 


* 1100 11 * 


wkKaekKkk&kKkkkkk 


OP-Code 


Function: 


kakaeknae 


* CAT * 


kkkk&kket 


This operator pops two operands off the EVALUATION 
STACK and generates a new descriptor that describes 
the concatentation of the two strings. The next-to-top 
operand must be non-selfrrelatives name-value bit on. 


When the source data items are of type CHARACTER» the 
results will be type CHARACTER. | 


ALl other data type combinations will cause the result 
to be of type BIT. 


3-22 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1700 SOL S*LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


SUBSTRING» ONE PARAMETER 


KaeKKEKAE 
* S51 * 
ekaeknaknkaentk 
Syntax: <String Type Bit><Load Type Bit> 
<UOffset><Length> 


Format: 


KKK RAKE KKEKEKKAKEEKEKKEKAEKKEKKaKKKKAEKK KK Kaa KKKkKKKakkKhke 


* 1111 11 0100 «* * * * * 
RAKE KKEKKKKKKKEKKKKKK KKK KKEKKEKKKK KKK KKEKKKKKKEKKEKKEKEKKKKKKKKKKK 
OP-Code * a Sal * 

*x * * * 

& * **xe 6 or 17 Bits 

te * & Specifies tength 

«x x * 

* * * 

* * k*xe 6 or 17 Bits 

* * Specifies. offset 

. x 

& * 

te xk*x*e 1 Bit O = Load Address 

& 1 = Load Value 

*® 

* 

axe 1 Bit O = Length in bits 

1 = Length in character 


The Offset and Length fields are encoded as follows: 


1. If the first bit in these fietds is equal to (0) then 
5 bits follow. 


Ze If the first bit in these fields its equal to (1) then 
16 bits follow. 
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Function: 


This operator functions the same as SS3 except that 
the offset and tength fields are literals which follow 
inclines rather than vatues on the EVALUATION STACK. 
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SUB*STRINGs» THO PARAMETERS 


Syntax: $52 <String Type Bit><Load 
Format: 


KRKKKKEKKEKEKKEKKKK KKK KKK KKK KKKEK 


* 1111 00 1000 « * * 
KkKKKKKKKKKEKKKKKKKKEKKKKKKKK KK 
OP-Code * * 

* * 

* kk |] bit 

* 

* 

& 

kee 1 bits» 0 


— 
ou 


Function: 


ae Two operands are e 
EVALUATION STACK. 


1. The top operand 
characters of the 
the string. If to 
order 24 bits are 


Ze The next operand 
type. It must not 
bit is O» then 
name~value bit off 


be The two operands are 
left on the EVALUATION 


1. Type: 
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kk&eteaeanth 


* $S2 * 


ckaekk&kknk 


Type Bit> 


» 0 
1 


toad Address 
Load Value 


Length in bits 
Length ain characters 


xpected to be found on the 


is the offset in bits or 
substring from the beginning of 
nger than 24 bits» only the Low 
used. 


is the string. It may be of any 
be selfe-relative. If toad type 
it must be an address (Cie.e. 
de 


then cut back and a result i) 
STACK. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
BARBARA PLANT 


SANTA 


4e 


a) 


b) 
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String type bit = 0 then bit 
String type bit = 1 then character 


Load type bit 


O then address 
Load type bit 1 


then value (selfrrelative 
if tength is 24 bits or tess) 


fon 


Length: 


a) 


Length is equat to the original length of the 
string minus the offset. 


Address: 


a). 


b) 


When 
strings an error interrupt occurs. 


Load type bit = 0 then the address in bits is 
equal to the old string address plus the 
offset. : 


Load type bit = 1 then. the address is the 
address of the VALUE STACK if the substring 
length is greater than 24 bits. 


1) If the load type bit is set and substring 
length is greater than 24 bits» the 
substring is loaded to the top of the 
VALUE STACK. 


2) If the toad type bit is set and the 
substring length ts less than or equal to 
24 bits the substring is tloaded right 
justified into the address field of the 
top of the EVALUATION STACK. 


the offset is greater than the length of the 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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SUB“STRING, 


syntax: 


Format: 


$33 


THREE 


PARAMETERS 


kaekk&kke 


« $53 * 


wKk&kKKKKK 


<String Type Bit><Load Type Bit> 


kEKKAKAEKKKKKKKaAK Kaha K KKK K kek 


* 1010 QO * 


KK kkk kkKKKK KK KK KEK Kk KkKkKkkkkhkk 


OP-Code 


Functions: 


& 


* 
x 
* 
* 
« 
* 


Thre 
EVAL 


1. 


26 


Alt 
on t 


* & 


* 

* 

axe 1 bit» 0 
1 


load address 
load value 


k* 1] bit» 0 = Length in bits 
1 = tength in characters 


e operands are expected to be found on the 
UATION STACK. 


The top operand is the tength in bits or 
characters of the substring desired. 


The second operand is the offset in bits or 
Characters from the beginning of the string. 


The third operand is the string. It may be of any 
types. It must not be self-reltative. If toad type 
bit is O» then it must be an address (i.e. 
namesvalue bit off). 


three operands are cut back and a result is left 
he EVALUATION STACK. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 
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1. Type: 

a) String type bit = 0 then bit 
String type bit = 1 then character 

b) Load type bit = 0 then address 
Load type bit = 1 then value (self-relative 

if tength is 24 bits or tess) 
26 Lengths: 

a) Length is equal to the length of the string 
minus the offset. 

3e Address: 

a) Load type bit 0 then the address in bits ts 
equal to the old string address plus’ the 
offset. 

b) Load type bit 1 then the address is the 
address of the top of the VALUE STACK if the 
substring tength ts greater than 24 bits. 

1) If the toad type bit is set and the 
substring length is > 24 bits» the 
substring is toaded to the top of the 
VALUE STACK. 

2) If jktthe toad type bit is set and the 
substring is loaded right justified into 
the address field of the EVALUATION STACK. 

4. when the offset plus the length is greater’ than 
the tength of the string» an error interrupt 


occurse 


BURROUGHS CORPORATION 
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STORE OPERATORS 


STORE DESTRUCTIVE 
STORE NON-DESTRUCTIVE LEFT 


STORE NON“DESTRUCTIVE RIGHT 


MNEMONIC | 


STOO 


SNOL 


SNOR 
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agp CODE ARGUMENTS 
0010 
1010 11 


1111 00 0100 


BURROUGHS CORPORATION 
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STORE NON-DESTRUCTIVE, 


Syntax: SNOL 
Format: 


KKKKKKKKEKEK 


* 1010 11 * 


KRKKKKKKKKKK 


OP-Code 


Function: 


DELETE LEFT 
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KkKkkKKEK 


* SNOL * 


kkKkekk&kkktk 


ae This operator pops two operands off the top of the 
EVALUATION STACK. 


be Fhe top 


(destination) 
non-self-relative 
i.@. It must be an address. 


ce It then copies” the 


(source) descriptor 
top (destination) descriptor. 


operand must be 
and the nametvalue bit must be off» 


described by the second 
into the location describe 


d by the 


d. When both the source and destination fields are of 


type CHARACTER» 


the data will be left justified in the 


destination fietd with either blank fill or truncation 
on the right. 


@e Any other sourcerdestination field type 


yield right justified data 


in the destination 
with eitner zero fill or truncation on the left. 


combinations 
fieid 
Thas 


allows for type conversion and tength truncation. 
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EVALUATION STACK. 
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STORE NON“DESTRUCTIVE» DELETE RIGHT 


Syntax: 


Format: 


SNDR 


ke keknkak 


* SNDR * 


ekxktkkekkne 


RaKKKKKKKEKKKKKkKEkK 


* 1111 00 0100 « 


KKAKKKEKKKKEKKKKKK 


O0P-Code 


Functron: 


This operator pops two operands off the top of the 
EVALUATION STACK. 


The top (destination) operand must be 
non-self-relative and the name-vahue bit must be off» 
ieee it must be an address. 


It then copies the data described by the second 
(source) descriptor into the location described by the 
top (destination) descriptor. 


When both the source and destination fields are of 
type CHARACTER» the data will be left justified in the 
destination field with either blank fitt or truncation 
on the right. 


Any other sourcerdestination field type combinations 
yield right justified data in the destination field 
with either zero fill or truncation on the left. This 
allows for type conversion and length truncation. 


3-32 


BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP | B1700 SDL S*LANGUAGE 


SANTA BARBARA PLANT PeSe #42201 2389 


f. The destination descriptor is then pushed back on to 
the top of the EVALUATION STACK. (This is the only 
difference from SNDL). 
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STORE DESTRUCTIVE 


syntax: 


Format: 


wtkikkkkk tk 


* 09010 * 


kek KKKKK 


OP-Code 


Function: 


STOD 


kkkaxkthkaekn 


*« STOD * 


KaeKkKKEKE 


This operator pops two operands off the top of the 
EVALUATION STACK. 


The top (destination) operand must be 
non=self-relative and the name-value bit must be off» 
i-@-e it must be an address. 


It then copies the data described by the second 
Csource) descriptor into the location described by the 
top Cdestination) descriptor. 


When both the source and destination fields are of 
type CHARACTER» the data will be left justified in the 
destination field with either blank fill or truncation 


on the right. 


Any other source-destination field type combinations 
yield right justified data in the destination field 
with either zero fill or truncation on the left. This 
allows for type conversion and length truncation. 
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CONSTRUCT DESCRIPTOR OPERATORS 


NAME MNEMONIC oP CODE ARGUMENTS 
CONSTRUCT DES. BASE ZERO CDBZ 1111 10 0100 DESCRIPTOR 
CONSTRUCT DES. LOCAL DATA. CDLD 1110 00 No DES#locecr 
. DES#n 
CONSTRUCT DES. FORMAL COFM 1111 01 0001 LL>E 
CONSTRUCT DES. FORMAL CHECK CDFC 1111 11 1101 000 LL>EoDES#1,...> 
DES&€n 
CONSTRUCT DES. FROM PREV. COPR 1110 10 N> DES#1 reser 
DES#N 
CONSTRUCT DES. FROM PREV. 
& ADD CDAD 1110 01 Ns DES#l>ceee 
DES#n 
CONSTRUCT DES. FROM PREV. : | 
& MULTIPLY COMP 1111 10 0101 NeDES#L > scar 
DES#£n 
CONSTRUCT DES. LEXIC LEVEL COLL 1111 10 0011 TYPE-LL-OC> 
DESCRIPTOR 
CONSTRUCT DES. REMAPS — CDRM 1111 00 1111 DESCRIPTOR 


CONSTRUCT DES. DYNAMIC CODY 1111 11 1110 000 TYPE 
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CONSTRUCT DESCRIPTOR PREVIOUS and ADD 
kkkkkhet 


* CDAD * 


ketrektrnke 
Syntax: CDAD <# Descriptors><Descriptor><Descriptor>... 
Format: 


RAEKKKEKA KE KK KKKaKkKKkKkkekkkkkkkkkkkk 


* 1110 O1 « * * * oes 
kkk KKKKEKKEKKKEKKK KKK KK KKK KK KEKE KK 
OP-Code * * * 
; * kKk&k&K KKK 
* * 
* * 
* xx«x Descriptors» variable size 
& (See incline descriptor format) 
* 
* 
kee 5 Bits 


Specifies number of descriptors 
Functton: 


a. The number of descriptors indicates the number. of 
in-tine descriptorse These will be used to build 
descriptors on the NAME STACK. 


be. The descriptors may be simple or array. 


ce The address portion is generated from the “filter 
field in the descriptor and information from. the 
previous entry on the NAME STACK. 


d. The following formula is used: 
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At = A+tLtF 


1. A* = is the new address part. 


2. A - is the address part of the previous descriptor 
generated on the NAME STACK. 


3. bt = 15 the Length part of the previous descriptor. 
4. F = is the "fitter" field in the descriptor if it 


is present. 


The operator must be able to find the address part of 
the previous entry whether itt is a simple or array 
descriptor. 


The new and previous descriptors cannot be paged array 
descriptorse 


BURROUGHS CORPORATION 
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CONSTRUCT DESCRIPTOR BASE ZERO 


Syntax: CDBZ <descriptor> 
Format: 


CHEEK KEEKKKAKEKEKKEEKHEKKKKKKK 


* 1111 10 0100 * fe 
KREKKMAKKEKKEKEKEKAKKEKEKKKAKKeKEKK 
OP=Code a 


* 
* 


zk*x*« Descriptors» variable size 
in-line descriptor format) 


(See 


Function: 
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KKKKKKKK 


* CDBZ * 


kKkrkk&kkin 


ae A descriptor is generated on the NAME STACK with zero 
(0) in the address field and other fields specified by 


this inwLine descriptor. 


be. Paged array descriptors are not allowed. 
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CONSTRUCT DESCRIPTOR DYNAMIC 


syntax: 


Format: 


Rak Kk&KKKE 


* CDDY * 


KkKkkKkaEKEK 


CODY <Type> 


KRKKEKKKKKKMEKKKKKKaAKKEKKEKKEKkKkKEKKKEK 


* 1111 11 1110 000 « * 
KaaEKEKEK KA AK Aka KK kK Ke KKKKEKKKke KEK KEKKKEK 
UP-Code * 


Function: 


* 

* 

«xz 8 bits specifies type 
(See type field of in-ttne 
descriptor format) 


This operator constructs descriptors for dynamic 
arrays and dynamic character strings or bit strings. 


The type field fottows the op-codes but the tength and 
number of entries will be operands on the EVALUATION 
STACK. 


The descriptor wilt be marked as non-self-relatives 
ands» if arrays» will be marked contiguous. 


The procedure to build the descriptor is as’ folttows: 
1. The type field is placed in the NAME STACK. 


2. The type field is tested for simple or array type. 


BURRUUGHS CORPORATION 
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36 


For 


a) 


b) 


c) 


d) 


For 


a) 


b) 


c) 


d) 


e) 


f) 


PeSe 42201 2389 


simple items: 


Item Length is the only entry on the 
EVALUATION STACK. 


The tength is popped off the EVALUATION STACK 
and placed in the NAME STACK. 


The VALUE STACK POINTER is used as the 
address. 


The VALUE STACK POINTER is updated by adding 
the length to it. 


array items 


Length and number of entries will be in the 
EVALUATION STACK. 


The tength is popped off the EVALUATION STACK 
and placed in the NAME STACK. 


Length between entries is the same as length. 


The number of entries is popped off the 
EVALUATION STACK and placed in the NAME STACK. 


The VALUE STACK POINTER is used as the 
address. 


The VALUE STACK POINTER its updated by 
multiplying the number of entries by’ the 
length and adding the result to the VALUE 
STACK POINTER. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CONSTRUCT DESCRIPTOR» FORMAL CHECK 


COFM <Lexic Level><é#Desc 


<Descriptor><Descri 


Syntax: 


Format: 


wKKkKKKKKKKKEK KE KKKKKKKKKEKKKKKKKKKKEK 


* 1111 11 1101 000 * 


KM KEKE KKK KKKKEEKEKKKEKKKKEKKKKEKK 


* * 


OP-Code * * 
* * 
* * 
x « 
* * 
« « 
* * 
*« KkKekek&ke 
* 
* 
* 
RaAKKKEKEKKEK EK 
ae Descriptor kkk 
* f 
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kxektkhete ke 


* COFC * 


KaekKKKkKKK:S 


riptors> 
ptor> 


kiekk&kkkkkkKkKk&kk&kkkkkkkk&k&kkk 


*& * 


oo @ 
KKk&KKKKKKAKKKKEKKKKKEKEKEKKKEK 
Pe * 
kkk kkk kekht 

te 


* 


Descriptorss 
(See 


variable size 
in-line descriptor format) 


4 Bits» specifies the number 
of 48 bit entries expected on 
the EVALUATION STACK. 
4 Bits» specifies the Lexic level 
(to be made current). 


ka kkkk&kikkkkkt & 


* L * E * 


KRKEAKKEKEKKKKKKEKEKKKK 


kKkkkkkkkkk kk 
x 0 « Ll «* 
kkkkk&kkk kk kt 


0 1 2 


* 


TYPE FIELD 

kkkkkkhkkkkkkkke kk kkk 
& & * * * 
kkaKKKKKKKKKKKKKKKEKEK 


3 4 a 226 4 


BURROUGHS CORPORATION 


COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT 


Bits: 0 


4» 


N 


5 


u 
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Always 0 
Always li 
If array then 1 
If array then 1» specifies that length 
between entries is equal 
to the length of entries 
00 BIT 
O1 FIXED 
10 CHARACTER 
11 VARYING 


If array bound varying then 1 


If tength of data varying then 1 


Length field - (6 or 17 bits). Appears 
only if type bit 7 is equal to zero (0). 


Number of entries for array - (6 or 17 bits) 
Appears onty if type bit 6 = O and 
tyoe bit 2 = l. 


Depending on the conditions tin the type field>» 
different fietds appear in the inctine descriptors 


Kind 


Array CA) 
Simple (5S) 


Length varying (LV) 
Array bound varying CABV) 


THEN: 
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KIND LV ABV FIELDS THAT APPEAR 
thet kkktkkhkk kkk kk kkhkk kkk kkkkkkkkkkkkkk kkk kkktke 
* S$ «* FALSE * cr & T» L * 
RARER KEE EERE EEE EE AEEEKERAKK KEKE 
* S$ « TRUE *® 77 & T * 
REA ASASC SOC SOELCCISCLCLSSSCCLSLCCLCSCLSLCCSCSCCL SSL eT ST at 
* A * FALSE * FALSE * T» L» E * 
TSP eC SPECS SESS SSE SSCS CSCS EST SSS LCST SSC ee Tere 2 2 eS 
* A « FALSE * TRUE * T» L * 
kkkkkkkkkhk kkk kikkkekkkhhkhkhkkhhkkkekkhkh kkk kt 
* A *« TRUE * FALSE * T> E * 
RK REE EEK EEK KEKE KEKERKEKKKKKKKKKK KEKE KK 
* A * TRUE * TRUE ®& T x 


Functions: 


wRKaKKEKKKEKKKKRKKEKKkKKKKEKKKKKRKKKKKKKkKEKKKKKKKKKKKKKkKKKK 


Refer to CONTROL STACK Mechanism 


CS~-ENTEREDeLLCCSP-1) 2= CURRENT.LL == LL; 
DISPLAYCCURRENT.LL) 2= CURRENT.NSPS 


1. A opreviousty executed MKS has initiatily set up 
CONTROL -STACK(CSP-1). 


Ce Since the format parameters have not been put on 
the NAME STACK» CURRENT.NSP has not yet been 
‘bumped. 


Descriptors for the actual parameters are expected to 
be on the EVALUATION STACK. 


The descriptors in the instruction are matched to 
descriptors in the EVALUATION STACK» starting with the 
last descriptor in the EVALUATION STACK and matching 
it with the first descriptor in the instruction. 


The descriptorss after comparisons are loaded to the 
NAME STACK. The EVALUATION STACK is cutback. The VALUE 
STACK is unchanged. 


When array bound varying is equat to 1» the array 
bound ts taken from the actual parameter. 
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f. When Length varying is equal to 1» the Length is taken 


from the actuat parameter. 


When the data type is varyings the data type is taken 
from the actual parameter. 


When an array the actual array need not be contiguous. 
If it itis» the formal and actual parameters must match 
identically. If there ts a mismatchse = an error 
interrupt occurse 


For paged arrays» both the paged array bit and_ the 
page subscript size must be copied. 
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CONSTRUCT DESCRIPTOR FORMAL 


kkeakkaekek 


*« COFM « 


Rakkhkkke 


Syntax: COFM <Lexic Level><# of ES entries> 


Format: 


RAKKKKEKKKKKKKKKAKEKKKKKKKKKKKKKKK 


* 1111 01 0001 « * * 
kKRakkk&kkkkkekkkkkkekkkkkkkkkkkekekkkekek 
OP-Code “t * 
* * 
t kee & Bits 
* # of EVALUATION STACK entries 
* 
* 


kee & Bits 
Lexic level 


Function: Refer to CONTROL STACK Mechanism 
ae CS-ENTERED-LLCOCSP21) t= CURRENT.LL *= LL; 


DISPLAYCCURRENT.LL) 2= CURRENT.NSPs 


1. A previously executed MKS has initially set up 
CONTROL-STACKCCSP-1) 


2e Since the actual parameters have not yet been put 
on the NAME STACK» CURRENT.NSP has not yet been 
bumped. 


be. Descriptors for the actual parameters are expected to 
“be on the EVALUATION STACK. 


ce The number C#) of EVALUATION STACK entries specified 
is transferred to the NAME STACK. CAn entry is always 
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48 bits’ thereforesr an array passed as a parameter 
will be considered as two 48-bit entries). 


de If the name vatue bit is one it is turned off. 


e. COFM employs no form of parameter checking. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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CONSTRUCT DESCRIPTOR LOCAL DATA 


Syntax: 


Format: 


CDLD 


kaeaxkk&ake ne 


* CDLD * 


ktk& ke taketh 


<# Descriptors><Descriptor><Descriptor>... 


RAEKEKEEKEKKKEEAKEEKKEKKKEKKKAKKEKK KKK KKKKKKKKKKKRKK 


* 1110 00 * 


* * * eee 


KKK EKEKKKKKEKKEKKKKKKKK KKK KKK KKKKKKKKhKkKkKhkk 


OP=-Code 


Function: 


* & Lg 

* kkekkkkkkkk 

* * 

* * 

* Descriptors» variable size 

* (See insline descriptor format) 
. 

kee 5 Bits 


Specifies number of descriptors 


The number of descriptors indicates the number 
inetine descriptors. These will be used as models 
build descriptors on the NAME STACK. 


The descriptors may be simple or array. 


The filler option of the in-line descriptor format 
never be present. 


of 
to 


can 


Array descriptors cannot have the length between 


entries option present. 
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e. When paged array is not indicated 


1. 


Ze 


If the descriptor is to be self-relative, its 
value Caddress field) witl be zero. 


If nonwssetf-relatives the current value of the 


VALUE STACK POINTER is used as the address’ field 
of the generated descriptor. The VALUE STACK 
POINTER is then increased by the total length of 
the data item. 


f. When a paged array is indicated. 


1. The page subscript size option will be 
present. 


2e The address field of the generated 
descriptor is set to 0. 
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CUNSTRUCT DESCRIPTOR LEXIC LEVEL 


kk kkktet 


* COLL * 


wkkekkkkknr 


Syntax: COLL <Data Address><Descriptor> 


Format: 


KKK KKK KEKE KAKKEKKKKEKEKKEARKKKK KE 


* 1111 01 0011 * LL>ON « * 


RKKKKKK KK KKKKKAKKEKKKKE KKK KKEKEKKEK KEK 


OP-Code 


Functton: 


* * 

*« * 

* «kx Descriptors variable size 

* (See in-line descriptor format) 
& 

* 

«**« Variable size» depending on 


the type bits in this field 


This operator builds a descriptor on the NAME STACK 
using the incline descriptor as a model. 


The data address is used to find a data descriptor in 
the NAME STACK» its address field is then used for the 
address fietd of the new descriptor. 


The data address wilt never reference a paged array 
descriptor. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CONSTRUCT DESCRIPTOR PREVIOUS & MULTIPLY 
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ekedktkekeek 


* CDMP * 


kek&kkikke 


Syntax: COMP <#Descriptors><Descriptor><Descriptor>eeece 


Format: 


kKEKKKKKkKKEKKKKKkK Kak KKKKKKKKAEKKKaEKKKKKKaEhEK 


* 1111 10 0101 * * * * 
RKKKKKKKEEKKaEEKEEKKEKEKKKKKEKKEKKKKKKEKEKEKkK KKK 
OP-Code * - of * 
* kkk k&kKik«k 
x * 
k *® 
* *x*x*« Descriptors» variable size 
* (Refer to in-line descriptors) 
kk 
« 


Function: 


z« 5 Bits-Specifies number of descriptors 


The number of descriptors indicates the 


ae 
in-line descriptors. These witl be used 
descriptors on the NAME STACK. 

b.- The descriptors may be simple or array. 

Cs 


The address field is calculated using the 
formula: 


A®* = A + L + F + CCHRE“1) * LB) 
1. A* = is the new address parte 


2- A= 38 the address part of the previous 


number of 
to build 


following 


entrye 
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3. bk = 398 the length part of the previous entry. 


4 


The 


F - as the "filler™ field in the descriptors if it 


is present. 


#E - is the “number of entries” part of the 
previous entry. 


LB - is the “length between” part of the previous 
entry. 


previous entry is always assumed to be of type 


array. It will never be paged. 


3-51 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1700 SDL S*LANGUAGE 
SANTA BARBARA PLANT . P.S. #2201 2389 


CONSTRUCT DESCRIPTOR FROM PREVIOUS 


Syntax: CDOPR 


Format: 


KkkkKkKKKS 


* CDPR * 


kekkaekiknk 


<#Descriptors><Descriptor><Descriptor> seco 


kkk kkkkkkkk kk kkk kkkkkekKkkKkk kkekRhkhaet 


* 1110 10 * 


* * : * 2#@eee 


RKEKKKKKKKKKKkKKEKKkKKKKKKKkkkkkkkkkKkkk 


OP-Code 


Function: 


* * * 
kkekkkkk 
* 


* 
*« 
* Descriptors» variable size 
« 
« 
*« 


«* 5 bits 
Specifies number of descriptors 


The number of descriptors indicates the number. of 
inzltLine descriptors. These witl be used to build 
descriptors on the NAME STACK. 


The descriptors may be simple or array. 


The address portion ts generated from the “filler” 
field in the descriptor and information from the 
previous entry on the NAME STACK. 
The following formula is used: 

A* = AtF 


1. A* = ts the new address part 
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2e =A - is the address part of the top entry on the 
NAME STACK ; 


3. F = is the "filler*™,» field in the descriptor if it 


is present. 


The previous descriptor built may be either simple or 
arraye 


The new and previous data descriptors cannot be paged 
arrays. 
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CONSTRUCT DESCRIPTOR REMAPS 


KkkKKKEaE 


* CORM * 


kkakkckinn 


Syntax: CORM <Length-Check Variant><In-Line Descriptor> 


Format: 


KkKKKkEKKKKKKKKKKEKKKKKKKKKEKKKK K 


* 1111 00 1111 * * * 


KHKKKEKKKEKEKEKKKEKKKEKKEKKKRKKKKE 


OP-Code 


Function: 


« * 
* * 
* *«*x« Descriptors (See in-line 
‘* descriptor format) 
* 
* 
#*e 1 Bit 0 = No length checking 
1 = Length checking 


This operator builds a descriptor on the NAME STACK by 
using: 


1- The inwLline descriptor information 


2-e An address obtained from the address field of the 
descriptor on top of the EVALUATION STACK. 


When the length check variant is set (1) then the 
Length in the in-line descriptor is compared to the 
length field of the descriptor on the EVALUATION 
STACK. If it is greater a run time error will be 
signaltied. 


The descriptor on the EVALUATION STACK is removed. 


BURROUGHS CORPORATION 
CUMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT. 


LOAD OPERATORS 


MAKE DESCRIPTOR 

VALUE DESCRIPTOR 
DESCRIPTOR 

NEXT OR PREVIOUS ITEM 


LOAD 


LOAD ADDRESS 


ARRAY LOAD VALUE 
ARRAY LOAD ADDRESS 
INDEXED LOAD VALUE 
INDEXED LOAD ADDRESS 


LOAD LITERAL 


LOAD NUMERTC LITERAL 
LOAD NUMERIC ZERO 


LOAD NUMERIC ONE 


MNEMONIC 


MDSC 
VDSC 
DESC 
NPIT 
L 

LA 
AL 
ALA 
IL 
ILA 
LIT 
LITN 
ZOT 


ONE 
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OP CODE 


1111 


1111 


1100 


1111 


1101 


0000 


1111 


1101 


1111 


0001 


0100 - 


0011 


0101 


0110 


10 
01 
10 
01 


00 


O01 


01 


1010 


1000 


1101 


1100 


01 0000 


#2201 2389 


ARGUMENTS 


TYPE-LL~-OC 
V> TYPE~LL-OC 
TYPE“LL-OC 


TYPE~LL-OC 


~TYPE-LL-OC 


TYPE=LL=-OC 
TYPE-LL-OC 
TYPE-LL~-OC 


TYPE» LENGTH» 
LITERAL 


LITERAL 
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ARRAY LGAD VALUE 


Ssyntaxs 


Format: 


AL 


<Data Address> 


wKkKKEKEKKKK KK KKK Keke KKK KKK K 


*# 1111 01 1100 * LL-ON * 


KKeKKKKKKEKKKKKKkKkKKKKEKKK KKK 


OP-Code 


Functions: 


* 

* 

xz*x« Variable size depending upon type 
bits in this field 


The Lexic Levels Occurrence Number pair (Oata Address) 


is used to address an entry in the NAME STACK. 


1. NAME STACKCOISPLAYCLL) +ON) 


The towtorder 24 bit field of the subscript on top of 
the EVALUATION STACK is compared to the “number. of 
entries” field of the descriptor. If greater than or 
equal an invalid subscript error occurs. 


If the paged array bit of the descriptor is off (not 
paged) then: 


1. The array descriptor is subscripted and a_ simple 


descriptor 1s generated on the top of the 
EVALUATION STACKs describing a copy of the value 
of the selected element of the array. This 


descriptor will be setfrrelative if the length of 
the value is tess than 24 bits», otherwise it will 
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be noneselfrrelativer its name-value bit one. and 
the value on top of the VALUE STACK. 


de. Paged arrays only. 


1. 


If the address field of the descepeee is O» (page 
table not yet altocated) then: 


a) The address of. the current instruction CAL or 
ALA) is pushed onto the PROGRAM POINTER STACK. 


b) <A copy of the subscript is pushed onto the 
EVALUATION STACK. 


c) The baserrelative bit address (Cin the NAME 
STACK) of the paged array descriptor is pushed 
onto the EVALUATION STACK. 


d) The Mmmachine state is saved (Cin hasecmrelative 
form) in RS.~MeMACHINE. 


e) The segments whose segment number is given in 
RSe-INTRINSICS.~LOC» is entered at displacement 
0. (This is the memory management intrinsic). 


f) Upon exits» execution will begin at Step a. 


The address field points to the first entry in the 
page table. The subscript is shifted to the right 
by the number of bits indicated by the _ page 
subscript sizee The resulting number (the page 
table subscript) is used to access the page table 
entry. 


If the presence bit in the page table entry is off 
then: 


a) The address of the current instruction is 
pushed onto the PROGRAM POINTER STACK. 


b) A copy of subscript is pushed onto’ the 
EVALUATION STACK. 


c) The basecretative bit address of the page 
table entry is pushed on to the EVALUATION 
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STACK. 


d) Execution goes to Step deled)s- (The memory 
manager is entered). 


The address fietd of the page table entry points 
to the page-e The number of bits indicated by page 
subscript size 1s extracted from the low order 
bits of the subscript. 


This number (Cpage subscript) is used to subscript 
into the pagee A simple descriptor is generated on 
the top of the EVALUATION STACK as in Step c. 


3-58 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP | B1700 SDL S“LANGUAGE 
SANTA BARBARA PLANT P.Se #2201 2389 


ARRAY LOAD ADDRESS 


Syntax: 


Format : 


k&ke&nkckackatk 


* ALA * 


kekekk&ae keh 


ALA <Data Address> 


KkkKkKkEkKKKKKKEKkkkkEKE 


* 1101 O01 * LL»ON * 


kKkKKKkk kK KKkkk&kk keke 


OP-Code 


Function: 


* 
* 


*x** Variable size», depending upon the 
type bits in this field. 


The execution of ALA is identical to that of array 
load» except that the resulting descriptor on the 
EVALUATION STACK is always noneselfr-relative and 
points to the array etement itself rather than a copy. 
(See step cel of AL). 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


DESCRIPTOR 


Syntax: ODESC <Data Address> 
Format: 


kKakKkKKKEKKKEKKKKEKkKEKEK 


* 1100 10 * LL»ON * 


wkKk&aKKKEKKKKKKKKEKEEK 


 OP-Code * 


& 
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kkekekkkank 


« DESC * 


keakk&kk&kn 


tx« Variable size depending upon 


type bits in this field. 


Function: 


ae The Lexic tevel>» 
tocates a descriptor 
may be either simple or arraye 


De A descriptor (48 bits) 


Occurrence Number pair (Data Address) 
in the NAME STACK. The descriptor 


is generated on the EVALUATION 


STACK that points to the descriptor in the NAME STACK. 
The length field of the new descriptor witl be 48 or 
96 depending on the type of the descriptor in the NAME 


STACK. Its type will be BIT. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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INDEXED LOAD VALUE 


syntax: 


Format: 


kRekkktk 


* [IL * 


kke#kkknk 


IL <Data Address> 


KRKKKKKKKKKKKkKkKkKKKKKKKKKKEK 


* 1111 01 0000 * LL»>ON * 


wKKKKKEKKKKKEKKKKKE KKK KKkKK 


OP-Code 


Function: 


The 


* 
* 


«exe Variable size depending on the 
type bits in this field. 


Lexic Level» Qccurence Number pair (Data Address) 


locates a descriptor in the NAME STACK. 


The descriptor must be non=setfrrelative. 


When the descriptor is non“array»s» thens 


1. 


An operand (which is the index) is taken off the 
top of the EVALUATION STACK~ A copy of the 
descriptor in the NAME STACK is then pushed onto 
the EVALUATION STACK and its address field is 
incremented by the index. 


The resulting address descriptor is then made a 


‘value by copying the data to the top of the VALUE 


STACK» changing the address field and setting the 
namesvalue bit. 
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de. When the descriptor is an array descriptors 


1. Same as case Ce aboves except only the first 48 
bits of the NAME STACK descriptor are picked up 
and the array bit ts turned off in the type fteld. 


MN 
e 


The array descriptor cannot be type PAGED. 
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INDEXED LOAD AODRESS 


khtkkkekt 


* ILA * 


wkeexeean 
Syntax: ILA <Data Address> 


Format: 


kKk&kKkKKKkKkKKKKEKKK 
* 0001 * LL-ON * 
KKKKKKEKKKKKKkKK 
OP-Code * 
* 
axe Variable size depending on the 
type bits in this field. 


Functions 


Indexed load address functions the same as indexed 
load values the only difference being that the 
resultant address descriptor is not converted to a 
value (Step c.2 of IL is omitted). 


3-63 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1700 SOL S*LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 
LOAD VALUE 
kkeratk 
* LL * 
k&eaek tk 
Syntax: L <Data Address> 


Format: 


kKkKkKaKkKKKKk KK KEK KKKKkEK 


* 1101 00 * LL»ON * 


Keak kkk kkkae kh kkeakk ek 


UP-Code. 


Function: 


® 
* 


*x*xk* Vartable size» depending on 
type bits in this field. 


The Lexic Level» Occurrence Number pair (data address) 
is used to address the NAME STACK. 


1. NAMESTACKCDISPLAYCCLL)+0N) 


2. The descriptor at this location must not be. an 
array descriptor. 


When the descriptor is self-relative or 


noneself-relative with a tength tess than or equal to 


24» a selfrtrelative descriptor is put on the 
EVALUATION STACK. 


When the descriptor is non-selfrrelative with a length 
greater than 24: . 


1. The descriptor is copied to the top of the 
EVALUATION STACK with the address fietd modified 
to point to the top of the VALUE STACK. 
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Ze The data item'is moved to the top of the VALUE 


STACK. 


The VALUE STACK POINTER ts bumped by the size of 
the data items. 
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LOAD ADDRESS 


syntax: 


Format: 


Kkkkzk 
* LA * 


kktrkakatk 


LA <Data Address> 


KKKRAKAEKKKKKKEKEK 


* 0000 * LL+rON * 


KkekKkKKk aK kK Kk Kk kkk 


OP=-Code 


Function: 


«x« Variable size» depending on the 


type bits in this fteld. 


The Lexic Level» Occurence Number pair (Data Address) 
is used to address an entry in the NAME STACK. 


1. NAME STACKCOISPLAYCLL)+0N) 


If the descriptor at that location is an array type 
the 96 bit descriptor is copied to the EVALUATION 
STACK. 


[f the descriptor at that location is a non-array type 
then: 


1. If the data item is self-rrelative then build a 
descriptor on the EVALUATION STACK using the type 
and length from the NAME STACK and the address of 
the leftmost bit of the data item. Change the type 
of the new descriptor to non-self-reltative. The 
data itself remains in the address portion of the 
descriptor in the NAME STACK. 
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2- If the data item is non-self-relative then the 46 
bit descriptor is copied to the EVALUATION STACK. 
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LOAD LITERAL 


weKKkKkkkKk 


* LIT * 


KaKKKKK 


Syntax: LIT <Type><Length><Literal> 


Format: 


MAKE KKKKEKKKKEKREKKKEKKAKHKRKEKKKKEKEKKK 


& ; * 


RHKKKEKKKKEKKKKKEKKKKKKKKKkKKkKKKKKK kak 


* 0100 * 

OP-Code ® 
x 
* 
« 
* 
«x 
by 
x 


* * 

* * 

« x*xe Literal» 24 bits if setf-relative 
* 

* 

x«xe Length of Literals» 16 bits 


zkxke § bit descriptor type field telis if titeral 


Function: 


This 


is self~relative or non-self=relative 


operator loads a constant to the top of the 


EVALUATION STACK. 


1. 


When the literal is selfrrelative (less than or 
equal to 24 bits) the operator pushes the types 
Length» and literal onto the top of the EVALUATION 
STACK. 


When the titerat is non-selfrrelatives the type» 
length and VALUE STACK pointer are moved to the 
top of the EVALUATION STACK and the literal ts 
placed on top of the VALUE STACK. 


For titerals less than twenty four bits in length 
the <literal> fietd must be twenty four bits long 
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in the code file even though the <lLength> field 
specifies that the actual data is less than twenty 
four bits in length. 


3769 


‘BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 81700 SDL S-“LANGUAGE 
SANTA BARBARA PLANT P.Se #2201 2389 


LUAD NUMERIC LITERAL 


kk aekakkak 


* LITN * 


KaKKKKEKEK 


Syntax: LITN <Literalt> 


Format: 


kakeaek kkk kk kk kk ek 


*« OO11 * * 
kkkekkkk kk kk kkk 
OP-Code * 


“« 


xx* 10 Bit Literal 


Function: 


ae This operator loads a 10 bit Literal to the top of the 
EVALUATION STACK as a FIXED» self-relative data item. 
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MAKE DESCRIPTOR 


Syntax: MDSC 


Format: 
kkk k kkk kk kk kkkkk 


* 1111 10 1010 * 


wkak kk kkkkKkkkkKkeiek 


OP-Code 


Functions: 


ae A descriptor 


STACK. 


is expected 


to 


be 
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KkkkkKK 


* MOSC * 


krek&kkkkt 


on the EVALUATION 


be This descriptor must describe another descriptor. 


ce This second descriptor (48 or 96 bits) is copied to 
the EVALUATION STACK after cutting back the original 


descriptor. 
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NEXT OR PREVIOUS ITEM 


kekaekeeen 


* NPIT * 


kk k&kahkhink 


Syntax: WPIT <Next or Previous Bit><Data Address> 


Format: 


CaKKKK A KK KEKE KKEKKKKKKAKkKKkKaAK KEKE 


* 1111 01 1101 «* * LLoON * 
KRKAKAKK&KKKKKKKkKkKkKkkKkEKEKKKkKAKKKAKEaKE 
OP~Code * * 
x & 
* xxx Variable size» depending on 
* type bits in this field. 
* 
* 
zeke 1 Bit 
0 => Previous 
1 => Next 


Function: 


ae The Lexic Level» Occurrence Number pair (Data Address) 
describes a nonwselfrrelatives nonearray descriptor at 


NAMESTACK CDISPLAYCLL)+0N) 


kkKkKkKkKkk&kkk&k&k&Kkk&kkkak 


* T * L * A te 


kKkekekakkak&kkaKKKkKKkKKkkEK 
be. The descriptor is then modified 
RKEKEKKKEKEKKKEKKA&KEKEE 


* T* « {* * At * 
kkkk kk kk kkkkkhkkkkak 


se i2 
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1. Previous 


a) T' = fT 
L' =t 
A® = AwL 

ee Next 

a) T* = T 
Lé=t 
A®* = AtL 

ce The modified descriptor replaces the old descriptor 


and a copy is also placed on the EVALUATION STACK. 
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LOAD NUMERIC ONE 


KKK KKK 


* ONE * 


KkekEKKKS 
‘Syntax: ONE 
Format: 


KKEKKKKKK 


* 0110 * 


kkk kk kkk 


OP~Code 
Function: 


This operator causes a FIXED» self-relative descriptor 
containing a one (1) to be placed on the EVALUATION 
STACK. 
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VALUE DESCRIPTOR 


Syntax: 


Format: 


VOSC 


KRKKKKKKKEKKKKKEKKK 


* 1111 O01 1000 * 


kkk kak Kk ka KK KEKEK SE 


O0P-Code 


Function: 


Ge 


be 


The following conditions are expected», 
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kk tkkthh 
* VDSC * 
tkhkkhhkht 
on the EVALUATION 


but NOT 


is always 48 bits. 


is replaced by 


non=self-relative descriptor that points to 


A descriptor is expected to 

STACK. 

checked: 

1. The namesvalue bit must be OFF. 

2- The nonwselferetative bit must be ON. 
3. The descriptor 

The descriptor is moved to the VALUE STACK. 
The descriptor on the EVALUATION STACK 

a 48 bit» 

the descriptor 


just moved to the VALUE STACK. 
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LOAD NUMERIC ZERO 


kRaktkkaxka 


* ZOT * 


kKaet@hke ant 
syntax: ZOT 
Format: 


KeEEKKKEKK 


* 0101 * 


kkeaekkaknenk 


OP-Code 
Function: 


This operator causes a FIXED» selfrrelative descriptor 
to be generated and placed on the EVALUATION STACK. 
The descriptor will contain the number zero. 
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BUMP VALUE STACK POINTER 
DUPLICATE 

DELETE 

EXCHANGE 


FORCE VALUE STACK 


MNE MONIC 


BVSP 
DUP 
DEL 
XCH 


FVS 


S75: 


COMPANY CONF IOENTIAL 
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1111 10 1011 
1100 00 
1111 00 0011 
1011 00 


1100 O01 


#2201 2389 


ARGUMENTS 
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BUMP VALUE STACK POINTER 


kaekkkkekke 


* BVSP * 


kexaxeakeeket 
Syntax: BVSP - 
Format: 


kKkKKKKKKKKKKKKKKK 


* 1111 10 1011 * 


kee kk aeKkaekaekkkkkzkkk 


OP-Code 
Function: 


ae The ‘descriptor on the top of the NAME STACK must be a 
simple» noneself-relative descriptors that points to 
the top of the VALUE STACK. 


b. The low order 16 bits of the vatue described by the 
descriptor on the top of the EVALUATION STACK are put 
into the length field of the descriptor on top of the 
NAME STACK. 


ce The top of stack pointer for the VALUE STACK is 
incremented by this 16 bit vatue. 


NOTE: This operator is not generated by the SDL compiter after 
the I[V.0 release. : 
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DELETE 


Format: 


wRaeKKEKKKAKEKE KKK K 


#« 1111 00 0011 * 


KKkkkknkkkkkkkkkke 


OoP~Code 


Functions: 
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eke eke ek 


*« DEL * 


keaAKEKKEKK 


-The top descriptor on the EVALUATION STACK is deleted 


along with 


its associated value 


the name-value bit is one 


in the VALUE STACK if 
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DUPLICATE 


kkeaKAK 


* DUP * 


kek ek&nae 
Syntax: DUP 
Format: 


kKKKKKKKKKEK 


*« 1100 00 * 


wkakKkKKkKaAKKKEK 


OP-Code 
Function: 


ae This operator takes the 48 bit (simple) descriptor on 
the top of the EVALUATION STACKs duplicates it exactly 
and pushes it onto the top of the EVALUATION STACK. 


b. If the name-value bit is ons the VALUE STACK portion 
will not be duplicated. 
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FORCE VALUE STACK 


Syntax: FVS 


Format: 


Khktkk kk thkek 


* 1100 01 * 


KKEKKAKKKKEEK 


OP-Code 


Function: 


ceteekkck kk 


* FVS * 


k&eaxetkakkan 


An operand is expected to be on the EVALUATION STACK. 


If the operand is a non-selferelative value» no action 
is: taken. Otherwise the operand is converted to a 
nonsselferelative value by copying its data to the top 
of the VALUE STACK» setting its descriptor's address 
field to the copied data and changeng the type field 
to nonwselferrelative value. 
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EXCHANGE 


kaekanacnn 


* XCH * 


kkketktkaa 
Syntax: XCH 
Format: 


KkKkKkakKkKKKKKKK 


* 1011 00 * 


kKkKK KK kK EKKK 


OP~-Code 
Function: 


ae This operator swaps the two top descriptors on the 
EVALUATION STACK. 


be. Both entries will always be 48 bit (simple) 
descriptors. 


ce The name~value bit may be set in ones but not both» of 
the descriptors. 
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PROCEDURE OPERATORS 


NAME MNEMONIC OP CODE ARGUMENTS 
CALL CALL 0111 TYPE=“SEG- 
PAGE=DISP 
IF THEN IF TH 1001 TYPE*SEG~ 
; PAGE~DISP 

IF THEN ELSE IFEL 1101 10 ADOR TYPE>TYPE- 


SEG=PAGE*DISP 


CASE CASE 1111 01 0100 # OF ADDR» ADDR 
TYPE» TYPE“SEG~ 
PAGE~DISP»o..e» 
TYPE“SEG-PAGE=- 


DISP 
UNDO UNDO 1000 # OF LEVELS 
UNGBO CUNDITIONALLY _ UNDC 1111 O01 0011 # OF LEVELS 
RETURN | . RTRN 1111 01 0101 # OF LEVELS 
RETURN FORMAL CHECK RTNC 1111 11 1101 001 # OF LEVELS» 

TYPE>LENGTH 
EXIT — EXIT 1101 11 #@ OF LEVELS 
CYCLE CYCL 1110 11 DISPLACEMENT 
MARK STACK | MKS 1011 11 
MARK STACK AND UPDATE = MKU 2111 01 1111 LL 
ENABLE“DISABLE INTERRUPTS | EOI 1111 11 0101 V 
EXIT*ENABLE INTERRUPTS XTEI 1111 11 0110 Ve# OF LEVELS 
CO-ROUTINE ENTRY CNTR 1111 11 1010 000 


CO-ROUTINE EXIT CXIT 1111 11 1010 001 # OF LEVELS 
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CALL 


syntax: 


Format: 


tkkkhkakee 


* CALL * 


khkhkatkat 


CALL <Code Address> 


RKKEKKKKAKKKKKKE K 


* 0111 * 


* 


kkk kkkkkkkk kh kk 


OP-Code 


Function: 


kee Types Segments Displacement 


The code address type may not be of type *nult"™. 


The Location (page number » segment number » 
displacement) of the first bit following the 
instruction its pushed into the PROGRAM POINTER STACK. 


The code address in the instruction is used as_ the 
address of the next instruction to execute. This may 
require a took up in the segment dictionary to locate 
the segment. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT 


CASE 


syntax: 


Format : 


CASE <# of Code Addresses><Address Type> 


<Code Address><Code Address> eecoe 


PeSe 


KKH KKK KEK KEKE EK HEHE KKEKKEKKEKAKEKEEKEEKEKKKKEKK KK 


* 1111 01 0100 * * * * * 


KKKEKCKEK KK KKKEKKKEKKKEKKEEKKEKKKKEKEKKEKKKEKKKKKKEKKKKKKKKKK 


UP-Code 


Function: 


* * * * 
* * KKKKKKKKKK KKK: 
* & * 

* * *& 

* *& 

* * 

*« * 

* *& 

* * 

* * 

* «xe 3 Bits Code 

* address type 

*« 

exe §& Bits 


# of addresses 


An operand is expected to be on the 
The value of this operand is used to 
code addresses. 0 selects the first 
seconds etc. 


When the value its out of ranges an 
occurs. 


« 
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ke kx ek kee 


* CASE * 


kre tkaxkketee 


wet (CALL addresses are 
of types 
by <Address Type> 
unless they are 
null). 


specified 


EVALUATION STACK. 
select one of the 
address» 1 the 


error 


interrupt 
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ce When the proper address has been isolated a "CALL" js 


performed on that address. 


Any of the addresses may be nuit addresses (type 
field=111) in which case the rest of the address will 
be padded with zeros Ceven though the type is null the 
address size is the same as the non-null addresses). 


When anult address is selected the operation is 
terminated. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CO“ROUTINE ENTRY 


Syntax: CNTR 
Format: 


REKEKKEKEEKEAKKEKKKKKEKKEK 


* 1111 11 1010 000 * 


KRKKKKAEKKKEKKKKEKKKKK 


DP-Code 
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KK kKkKKKEK 


* CNTR * 


kkk&kkkank 


The table associated with each of the co-routine operators has’ the 


following format. 


DECLARE. 
01 TABLE» 
02 
02 
02 


Function: 


NUMBER.OF -ENTRIES 
ENTRY -ADDRESS 


PPS.~COPYC( 16) 


BITC4)>» 
BITC32)> 


BITC 32)> 


a» The descriptor on the top of the EVALUATIGN STACK will 
contain the address of TABLE. 


be The current code address 1s pushed onto the PROGRAM 


POINTER STACK. 


Ce The number of 


PPS.COPY» specified by 
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NUMBER.OF.ENTRIES ts pushed onto the PROGRAM POINTER 
STACK. 


d.» The address of the next instruction is taken from 
ENTRY.~ADDRESS. 
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CUTROUTINE EXIT 


Syntax: 


Format: 


kkkk&knxke 


* CXIT * 


wk&ak&kkKkKKK 


CXIT <# of Levels to exit> 


KRKKKKKKKKKKKKKKaAKEKKEKEKEKKKK 


* 1111 11 1010 O01 * * 
KRKAKAEKEKEKKEKKEKKEKKKKKKEKK KKK K 
GP-Code * 


* 


zax« 4 Bits» specifies number 
of tevels to exit. 


See CNTR for TABLE format. 


Functton: 


The descriptor on the top of the EVALUATION STACK will 
contain the ‘address of TABLE. 


Number of tevels is stored in NUMBER.OF-ENTRIES. 


The current code address is stored in ENTRY-ADDORESS. 


The number of entries on the top of the PROGRAM 
POINTER STACKs (specified by 4 of Levels) is copied to 
PPS.~COPY (€0) through PPS.COPY (C# OP tevels-1) if the 
# of teveis is 0» nothing is copied. 


An UNDO is performed» using the #4 of tlevelts as_ the 
number of entries to pop off the PROGRAM POINTER 
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STACK. 
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CYCLE 


Syntax: 


Format: 


kekk&kkiatk 


* CYCL * 


ke kak ae kan 


CYCL <displacement> 


KEKKKEKKKKKKKKKKKKKKK 


* 1110 11 * 


* 


KwkKkKk KKK KK KK KKKkKKKKKEK 


OP-Code 


Function: 


* 
* 


«xe 12 bits» specifies the relative branch address 


When the twelve bits are read by the processors the 
program pointer will point the the first bit of the 
next instruction. 


The twelve bit displacement ts then subtracted from 
the program pointer to give a new next’ instruction 
addresse 


This operator does not cause a change in code segment. 
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ENABLE OISABLE INTERRUPTS 


kek acaxatk 


* EDI * 


k&aekekthkat 


Syntax: EDI <Enable-disable bit> 


Format: 


kkk kk kk kk kk keh khkk tk 


* 1111 11 0101 « * 
kKkekk&kkkk kkk kkKkKKkkekkK KEK 
OP-Code * 
* 


«kz 1 bit» 0 => Enable 
1 => Disabte 


Function: 


Disable 
ae Disable extracts. from the interrupt queue ae high 
priority interrupt and ptaces the port» channel» and 
reference address associated with it on top of the 
EVALUATION STACK. 
be. The MCP*s highspriority interrupt handling routine is 
entered (via a CALL). If there is no high priority 
interrupt in the queue the next in tine Sop ts 
executed. 
Enable 


ae Enable checks. the interrupt queue for a high priority 
interrupt; if one exists it places the associated 
port» channels» and reference address in the EVALUATION 
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STACK. 


be. A CALL to the MCP*s high priority interrupt handling 
routine is then performed. If no high = priority 
interrupt exists an UNDO is performed» to terminate 
handling of high priority interrupts. 


NOTE: For MCP use only. 
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EXIT 


KeKEERKEKEK 


* EXIT * 


tk eka nknk 


Syntax: EXIT <# of Levels> 


Format : 


KKK aKKKKk EK kkKKkKKKKEKK 


* 1101 11 * # * 


kaEKKKAEKKERKRKEKKEKEKK 


OP=-Code * 


* 
«xe Number of levels to exit (4 bits) 


Function: Refer to Control Stack Mechanism 


ae OISPLAY and CONTROL STACK are updated by the following 
algorithm: 
CURRENT .NSP?=CS .NSPCTCSP2=CSP2=CSP=1)3 
CURRENT «VSP2=CS-VSPCCSP)3 
DO SEARCH FOREVER: 
IF CS-EXITED.LLCTCSP) = 0 THEN UNDO SEARCH 
IF CURRENT«LL = CSeENTERED-LL(TCSP#=TCSP“1) THEN 
DO; 
DISPLAY (CURRENT-LL)2=CS-NSPCTCSP)3 
UNDO SEARCHS 
END; 


END SEARCH? 
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CURRENT.LL®2=CS.~EXITED-LL(CSP); 


be An UNDO is performed on the PROGRAM POINTER STACK» 
using the number of levels given in the instruction. 
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IF THEN ELSE 


Syntax: 


Format: 


kkthakikkk 


* IFEL * 


kKktkkhkkkek 


IFEL <Address Type><Code Address><Code Address> 


KRKEKKEHAKKEKKEKKEKKEKKKKKKEKEKKKEKKKKEKEK 


* 1101 10 * 


* * *« 


KKKKAEK KEKE KK KKK KEK KEKE KK KKKKKK KK KK KKK 


CP-Code 


* *  - 

* , * *« 

* * *wk*e Types Segments» Displacement 
x * 

x * 

* «x Types Segments Displacement 

* 

« . 

z*x* Address Type» 3 Bits 


The type of both code addresses must be the same as the <Address 
Type>. The code address may not be of type “null™. 


Function: 


An operand is taken from the EVALUATION STACK. The 
rightmost bit of the value of the operand is examined. 


1 
0 


True 
False 


If true thens 


Eve A CALL instruction is executed using the _ first 
code address. 
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If faise thene 


1. A CALL instruction ts executed using the second 
code address. 


The return code address that is pushed tnto~ the 
PROGRAM POINTER STACK by the call points to the bit 
following this instruction. 
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IF THEN 


kx ex ahetk an 


* IFTH * 


kKe&k&aeaktetk 


Syntax: IFTH <Code Address> 


Format: 


KKK KKkKkKKkKKKKKKEKK 


* 1001 * * 
RKKKKEKKEKKEKKKEKK 
OP-Code * 


& 
xxx Types Segments Displacement 


Functions: 


ae An operand is taken from the EVALUATION STACK. The 
rightmost bit of the value of the operand is examined. 


1 
0 


True 
Fatse 


hou 


De If true then» 


1. A CALL instruction is executed using the code 
address given tn the instruction. 


2. The return code address that is pushed into’ the 
PROGRAM POINTER STACK points to the bit following 
this instruction. 


Cis If false then» 


Ls This Instruction 13s terminated and the next 
instruction in line tis executed. 
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MARK STACK 


Syntax: MKS 
Format: 


waKaEKRK KKK KK 


* 1011 11 * 


kakei kkk ekkk 


OP-Code 


Function: 


Refer to CONTROL STACK mechanism. 
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Kk&kkKKK 


*« MKS * 


Kk&kkkKKE 


The CONTROL STACK is updated by the following algorithm: 


CS.NSPCCSP) =CURRENT.NSP3 
CS eEXITEDeLLCCSP) 2=CURRENT«LL3 
CS.ENTERED-LLCCSP):=03 


CS.~VSPCCSP) 2=CURRENT.VSP? 


CSP:=CSP + 1; 
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MARK STACK AND UPDATE 


Syntax: MKU <Lexic Level> 


Format: 


kKkE KKK A KK KK KKEKKKKKEKKKK 


* 11112 01 1111 «| * 
KKK KKEKKAEKEKEEKEKEKEKKAKKKEKEK EK 
OP-Code * 


* 


kee & Ditss LL 
Lexic Level being entered. 


Functton: 

Refer to CONTROL STACK mechanism 

The CONTROL STACK and DISPLAY are updated by the 

algorithm: ’ 
CSP.NSPCCSP)2=CURRENT NSP 
CS.EXITED.LLCCSP)2=CURRENT.LLs 
CSe-ENTERED.LLC(CSP)2=CURRENT.LL?2=LLs 
CSe~VSPCCSP)2:=CURRENT.VSP; 
CSP 2=CSP+tl1> 


DISPLAYCCURRENT.LL) S=CURRENT.NSP? 


xexke ake EK 


* MKU * 


eekankat 


following 


BURROUGHS CORPORATION 


COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT 


RETURN FORMAL CHECK 
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Keka KEA KE 


* RINC * 


kk ak&KaKKE 


Syntax:  RINC <# of Levels><Type Field><Length Field> 


Format: 


KRXKKKKAKKKkKKKKKKKKKKEKKKkEakEKKKKKEKKKKEKKKKkaAK & 


* 1111 11.1101 001 * 


REE KKEKEKKEEKEKEEKKEKEKKKKKEKKKEKKKAKKEKKKKKKKEKK EK 


OP-Code 


Function: 


Refer to Control Stack 


Ge 


* 


+ e+ he FH HF OF HH 


Mechanism 


Type Field: 


Bits: 


* 


* 


+e ee he FF 


« 


* 


* 
*« 


xx* Length Fietd (6 or 17 
bits). Present only if 
length varying bit is 
is not set. 


«@« Type (8 bits) 


Not 


Not 


Not 


Not 


used 
used 
used 


used 


xx Number of levels 
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4-5 00 BIT 
Ol FIXED 
10 CHARACTER 
11 VARYING 
6 7 Always 0 
7 -~ 1 if tength is varying 
be DISPLAY and CONTROL STACK are updated using the 
following algorithm, 
CURRENT .NSP2=CS-«NSPCTCSP2=CSP 2=CSP-1)>; 
CURRENT.~VSP2=CS.VSPC(CSP); 
DO SEARCH FOREVER; 
IF CSeEXITEDsLLCTCSP)=0 THEN 
UNDO SEARCH; 
IF CURRENT.LL=CS.ENTERED-LLCTCSP2=TCSP-1) 


THEN 


DISPLAYCCURRENT.«LL)2=CS.NSPCTCSP)> 
UNDO SE ARCH>s 
END> 
END SEARCH? 
CURRENT.~LL2=CS~EXITEDeLLOCSP) > 


ce The vatue to be returned is an operand on the top. of 
the EVALUATION STACK. 


de The type and tength of the data must match the’ type 
and tength specified tn the instruction unless’ the 
type or length 1s varying. 
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Ge If the operand on the EVALUATION STACK is not 


selfrtrelativesr the data to be returned is moved to the 
top of the VALUE STACK» t.e. changed to a vatue from 
an address$. 


An UNDO is performed on the PROGRAM POINTER STACK» 
using the number of levels given in the’ instruction. 
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RETURN 


Syntax: 


Format: 


kktkkkkaee 


* RTRN * 


kKkekKkKKKKS 


RTRN <# of Levels> 


aekk kkk kkkkkkk hk kkckkkk 


* 1111 01 0101 * * 


KKK KKKKKKKKKKE KKK 


OP-Code 


Function: 


xxx 4 Bit field that specifies 
the number of tlevets 


Refer to Control Stack Mechanism 


RTRN oerforms no check on the type and tength fietids 
of the value returned and is the return that its 
normally emitted by the compiler. RINC does’ perform 
checking and is available as a compiler option. 


The value to be returned is an operand on the top of 
the EVALUATION STACK. 


If the name value bit is off and the descriptor is 
non=selfrrelatives then an error condition occurs. 


DISPLAY and CONTROL STACK are updated by the following 


algorithm; 
CURRENT-NSP2=CS -NSPCTCSP:=CSP2=CSP-1)>, 


CURRENT.VSP2=CS -VSPC CSP )s 
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DO SEARCH FOREVERs 
IF CS-EXITED»LLCTCSP)=0 THEN 
UNDO SEARCH? 
IF CURRENT.LL=CS-ENTEREO-LLCTCSP2=TCSP-1) 
THEN 
DO; 
DISPLAYCCURRENT.LL)2=CSeNSPCTCSP)> 
UNDO SEARCHs 
END; 
END SEARCHs; 
CURRENT.LLE=CS~EXITED-LLOCSP) >; 
If the operand on the EVALUATION STACK is_ not 
selfrrelatives the data to be returned is moved to the 


top of the VALUE STACK» i.e. changed to a value from 
an address. 


An UNDO is performed on the PROGRAM POINTER’ STACK» 
using the number of Levels given in the instruction. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


UNDO 


Syntax: UNDO <# of Levels> 


Format: 


kKkkkkkkk&kkk kik 


* 1000 * * 


KRKKKKKKR kk KK KKK 


CP-Code * 


* 


xxe & Bits to designate number 
of levets to undo (0-15) 


Function: 


37105 


COMPANY CONFIDENTIAL 
B1700 SDL S“LANGUAGE 
PeS.e- #2201 23589 


wkakk&kkk&keet 


* UNDO * 


kKaek&k&ki kek 


ae The PROGRAM POINTER STACK is cut back by the number of 
levels specified in the instruction. 


be. The next entry in the PROGRAM POINTER STACK is” then 


used as the pointer to the 
entry 1s then atso cut back from the PROGRAM 


STACK. 


next instruction. This 
POINTER 
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UNDO CONDITIONAL 


Syntax: 


Format: 


ke tktkeaceeh 


* UNDC * 


kk kh kaa 


UNDC <# of Levels> 


kKkkKKK KK KKK EK KKK KKKaK K 


* 1111 01 0011 * * 


ka&kkkekkkkkkkkkkkkkkkazk 


OP=-Code 


Function: 


* 
* 


kee & Bitse specifies number of 
levels to undo (0715) 


An operand is taken from the top of the EVALUATION 
STACK. 


The rightmost bit of the operand is interrogated 


i 


1 TRUE 


0 FALSE 


iT] 


When true an UNDO operator is performed for the number 
of levels indicated. 


When false the instruction is terminated and the next 
intlLine instruction 1s executed. 
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EXIT» ENABLE INTERRUPTS 


xk kk akkt& 


* XTELT * 


kaeKKKKKEK 


Syntax:  XTEI <UNDO or EXIT bit><# of Levels to exit> 
Format: 


WKKEKEKKKEKKEKEKEKEKKEKKKKKKKkKKRKKK 


* 1111 11 0110 * ie * 
WAKA KEKKKRKKKKKEEKKKKKKKKKKKKEK 
OP-Code * * 
* * 
* kxk 4 Bits» specifies number of 
* of tevels to exit 
* 
* 
«kx 1 Bits» vartant to specify.if UNDO or EXIT 
0 => UNDO 
1 => EXIT 


Function: 


The execution of XTELI is identical to that of EXIT> 
except that interrupts will be enabled before’ the 
operator terminates. 


NOTE: For MCP use only. 


BURROUGHS CORPORATION 
CUMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


SEARCH & SCAN OPERATORS 


SEARCH SDL STACKS 
SEARCH LINKED LIST 
SEARCH SERIAL LIST 
SORT SEARCH 

THREAD VECTOR 
INITIALIZE VECTOR 
SORT STEP DOWN 
SORT SWAP 

SORT UNBLOCK 


DELIMITED TOKEN 
NEXT TUKEN 


DE BLANK 
CHARACTER FILL 


TRANSLATE 


FIND DUPLICATE CHARACTERS 


MNEMONIC 
SSS 
SLL 
SSL 
SSCH 
TVEC 
IVEC 
SSD, 
SSWP 
UBLK 


OTKN 
NTKN 


OBLK 
CHFL 
XLAT 


F OUP 
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OP CODE 


1111. 


1111 
1111 
1111 
1111 
1111 
1111 
1111 


1111 


1111 


1111 
1111 
1111 


1111 


01 
11 
11 
11 
11 
11 
11 
11 


11 


il 


11 
11 
11 


11 


1111 11 1110 


1010 
1000 
1011 
1011 
1011 
1011 
1011 
1011 


1001 


1001 


1001 
1001 
1110 


1001 


001 


900 
100 
001 
0090 


010 


101 


O11 


001 


000 


010 
100 
i01 


011 


ARGUMENTS 


COMPARE TYPE 


COMPARE TYPE 


TYPE~LL-OC>» 
DELI» DEL2 


TYPE-LL-OC>» 
SEPARATOR» 


FYPE-LL-OC 


V 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CHARACTER FILt 
Syntax: CHFL 


Format: 


kk&kKkKkEaeK Kk aEKKEKAKKKaAKK 


* 1111 11 1001 100 * 


KKKKKkKkKakaA Kk kKKKKKEKEKEEK 


OP-Code 


Function: 
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ket kxkarnrt 


* CHFL * 


ke tk&aexzete 


ae Two operands are taken from the EVALUATION STACK. 

be The top operand is the sources» and must be eight bits 

c. The second operand-is the destination. 

de The source descriptor may be self-retative or 
noneselfrrelative. 

-@e The eight bits the source field ts moved 


Left-justified 


until the destination fietd 


into the destination field>, 


repeatedly», 
is fidiled. 
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FIND OUPLICATE CHARACTERS 


syntax: 


Format: 


ak&aaekat tk 


* FDUP * 


wekkek&kuk tk 


FOUP <Data Address><Data Address> 


KRKKKKKKKEKKKEKKKKKKEKKKE KE KKKKKkKKKKkKKKK 


* 1111 11 1001 O11 * LL»ON * LL>ON * 


KRMAKKEEKEKEKEKAEKKKEKEKKKKaKKKEKakKKKKEKKKKEK 


OP-Code * * 


Function: 


* k 
KKKkKk&KkKKkkKKK 
* 
* 
* 
Variable size depending 
on type field. 


The text to be scanned is initially described by the 
first data address. 


The second data address describes the non-duplicate 
text. 


s 


The text will be scanned until three or more duplicate 
characters are found. 


Upon return the .text descriptor is modified to 
describe the remaining text. 


The non-duplicate text descriptor ts modified to 
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describe the non-duplicated text that was scanned. 


The number of duplicate characters will be left as a 
24 bit item on the top of the EVALUATION STACK. 


The duplicated character will be left as the second 
item on the EVALUATION STACK and witt be of type 
CHARACTER» tength 1. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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DELIMITED TOKEN 


Syntax: 


Format: 


keekakkke 


*« DTKN * 


kkkkkkik 


OTKN <Data Address><Delimiters> 


KKaeKK KK KA KK KKKKKKKKKEKKEKKkKKEKKKkKKaE KKK 


* 1111 11 1001 001 * LL»ON * * 


KRaEKKKKKKKKEKKkKKKKaEKKKEKKkK KKK kx KkKKKkEKKK 


OP-Code * * 


Function: 


* 


kee 16 Bits specifies delimiters 


& 
xk 
* (2 characters) 
* 
* 
* 


** Variable size depending on 
type bits in this fietd. 


The descriptor tocated by data address is _ used 
access the first source character. 


The address of the first character is token-start. 


Characters are compared sequentially to each of 
eight bit delimiters until a match is found. 


to 


the 


Current address witt point to the character which 


matches one of the delimiters. 


A descriptor is left on top of the EVALUATION STACK 


that 1s: 
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1. Noneselferrelative. 
2-e The address is the address of tokensstart. 
3. The tength is equal to the current address’ minus 


token=start. 


f. The address field of the NAME STACK descriptor § (for 
first character 1s set to the current address. 
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DE BLANK 


syntax: 


Format: 


kKikkkkk uk 


* DBLK * 


kKekkkkkk 


DBLK <Data Address> 


RKKKKEKKKKKK KK KK KKEKKKKKKKKKEK 


* 1111 11 1001 010 * LL->ON * 


KKK KEKEKEKKKEKKKKKEKKEKRKKKKKK K 


OP-Code * 


Function: 


k 


xxke Variable size depending on 
type bits in this field. 


The descriptor tocated by <Data Address> is used to 
access the first source character. 


Characters are then passed seriatly until a non~blank 
character ts found. 


The address of the first noneblank character found is 
put into the address field of the descriptor describea 
by <Data Address>. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


INITIALIZE VECTOR 


syntax: IVEC 
Format: 


RKAKKKKKKKKEKKKKKEKKKKaE 


* 1111 11 1011 000 * 


KkKKKKKKKKkkKkKkk&kKkKEKKK 


OP-Code 
See 55D for keys table format. 


VECTOR TABLE 
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kKrerik&thdekakn 


* IVEC * 


kakekkkKKE 


24 Bits 24 Bits 24 Bits 4 Bits 
KKKKKKKK Kak KkaEKK KK KE KK KKKKEKKEKKKKKKE KK KKK EKKKKK Kk KKKKKKKKEK KKK KK 
« VECTOR * VECTOR & VECTOR * * 
* BASE * LEVEL.1 * LIMIT * FLAGS * 
* ADDRESS. « SIZE & SIZE * * 


RKKKKKHEKKKEKEEKKEAKEKEKEEKEKEAKEKEKKKKKKKKKEKKKKKKKKKAKKKKKRKKKKKKK 


SORT VECTOR 


2 10 


RHEE KCKEKCRKEKEKKKKKEKKKKEKEKEKKEKKKEKEKKaKEKKKKE 


* * * VECTOR ELEMENT.1 


« & & 


* FLAGS * LINK * 


& Si * VECTOR ELEMENT.n 


* 
« 
* 
* 


KKKEKKEKEKKEKKEKKEKEKKEKKAKEKKKKKEKEK KK KEKE KEKEKKKKKKKaAKK 


Function: 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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This Operator is similar to Thread Vectors with the 
exception that: 

Ls The vector has never been inittatized Chad a 
winner). 

2. The initial value of the bit displacement into the 
vector ts zero (0). 

3. Each new vaiue is iIncremented by 64. (Vector 


element length * 2). 
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NEXT TOKEN 


Ktetkk&axknktk 


* NIKN # 


kk kk aK AK 


Syntax: NKTN <Data Address><Separator> 
<Numeric*to~Alpha Indicator> 


Format: 


KKEKEKKEKKKEEKKKKKKKKEKKEKKKEKKKKKKkkKkkkkkkkKkKkkaek 


* 1111 11 1001 000 * LL»ON « * * 
KRaKKKK KEKE KEKKEKEAKEAKEKEAKKEKEKEK KE EK KEKEKEKEKE KEK 
OP"Code * * * 

* k *« 
* * kee 1 Bit 
& * Numeric=to-Alpha 
* * Indicator 
* x 
& zex« 8 Bits» specifies a 
* separator 
tk 
***x Variable size depending on 


type in this field 
Function: 


ae The descriptor described by data address is used to 
access the first source character. 


be The address of the first character is token-start. 


ce If this character is a special character (less than 
A? then set the current address to tokenwstart +8 
and go to (9g). 


de If the. numeritcctortatpha indicator is set (1), then set 
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stopper to “A. 


If the numeric-to-alpha indicator is not set (€0) and 
the first character is numeric then set stopper’ to 
"OO". Otherwise» set stopper to "A". 


Sequentially compare characters to stopper until one 
is found which is tess than stopper and not equal to 
“separator”. The current address will point to this 
character. 


A descriptor is left on tep of the EVALUATION STACK 
that is: 


1. Non-selfrretative of type character. 
2- The address is the address of tokenwstart. 


3. The tength ts equal to the current address minus 
token~start. 


The data address for first character is set to the 
current address. 


It 158 assumed that a special character such as ‘%"Z" 
will fotlow the image to be scanned» in order that 
scanning will terminate. 
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SEARCH LINKED LIST 


wKKk#KkKKKKE 


*« SLL * 


Kaek&KkKKK 
Syntax: SLL<Compare Type> 
Format: 


NRAEKKKKEKKKKKKEKKKKKKK & 


* 1111 01 1010 « ot 
KRKEKEKEKKKKKAKKEKKEKKKKKEK EK 
OP-Code * 


es . 
* 
*«x*e 3 Bits» specifies compare type 


The compare type specifies the desired relation. It is encoded as 
follows: 


- Greater than 

~ Less than. 

- Not equal to 

Equal to 

- Greater than or equal to 
- Less than or equal to 


OM WR 
" 


Function: 


ae Four descriptors are expected to be on the top of the 
EVALUATION STACK. These descriptors represent the 
following items: 


3-120 


BURROUGHS. CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1700 SDL S“=LANGUAGE 
SANTA BARBARA PLANT P.Se- &€2201 2389 

Descriptor Meaning 

First (top) Link Location 

Second Compare Variable 

Third Compare Fietd Location 

Fourth Structure Address 

1. Link Location is a template which describes’ the 


field in the structure which contains the base 
relative address of the next structure to be 


examined. 


2- Compare Variable determines the 


value to be 


compared to the structure. Its Length must be less 


than or equal to 24. 


3- Compare Field Location is a template whose length 
field its the Length of the field to which compare 
variable is to be compared and whose address field 
1s the offset (in the structure) of the field to 
be compared againste The tength must be tess than 


or equal to 24. 


4. Structure Address is the base relative address of 


the first structure to be examined. 


b. The linked list is searched until 


either the 


comparison succeeds or the end of the list is found. 
The Last element of the list must have a link field 
with binary 1's Ci.e. AFFFFFF a if the tink field is 24 


bits wide). 


Ceo If the search succeeds» then the base relative address 
of the current structure is left on the EVALUATION 


STACK as a 24 bitcevalue. 


de If the search faiths» then @FFFFFF2 is the value teft 


on the EVALUATION STACK. 


NOTE: This operator will not terminate if it 


is unabte 
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to make a successful comparison and cannot find the end 
of the list (Ca tink field of all 1s). 
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SORT SEARCH 


R&axk&ekKRKEKEK 


* SSCH * 


KekKKK RE 


Syntax: SSCH 
Format: 


KHKKKKKKKKKKkKEKKkKK hak 


* 1111 11 1011 100 * 


KKKKK KK KK KEK KKKKKKkKKEK 


OP-Code 
See SSO for keys table format. 
Function: 
ae This operator expects two items to be _ on the 
EVALUATION STACK. 


1. The top item is the buffer timit address. 


2% The second item is the address of the search 
control table. 


SEARCH CONTROL TABLE 


Bits 24 | 2h 2h 2h 2h 


KK EKKKKKKKEKKKEKK KEK KEKE KKKKKKKEKKKKKKKEEKKKKK KAKA KKK KK KK E 
« CONTROL * KEY # CURRENT * SCAN * RECORD * 
* RECORD * TABLE * RECORD * & * SIZE * 
* ADDRESS * ADDRESS * INDEX * COMPARE * * 
& * * * TYPE * * 


KR AEKKEK KE KKK KEKKKEKEKKAEEKEKEEKKKAEKEKEKKEKEKKKAKKKEKKKEEKEE KEK KaAKKE EK 


be SSCH compares each record in a buffer with a control 
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record on a specified key. 


The record may be compared from the top of the buffer 
down or from the bottom of the buffer up. 


The compare can be for 
1. LSS Cless than) 


2. LEQ Cless than or equal to) 
3. GEQ (greater than or equal to) Z 


When arecord is found that satisfies the comparison 
a one (1) is returned. Otherwise a zero 1s returned. 


BURROUGHS CORPORATION 
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SORT STEP DOWN 


syntax: $5SD 


Format: 


CRE KKAEKKAKEKAAKEKKKK 


* 1111 11 1011 010 * 


kKkhkaek kkk kk kkkkkk kkk & 
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wkkaekkkek 


* SSD * 


wkkektkk atk 


OP=Code 

KEYS TABLE 

4 Bits 12 Bits 20 Bits 
kkk kkkkekkk kk kk kekkkKkkekkkkkkkkkkkkkkkkkk kk kkk kkk 
« { « { * { & 
* | 
£7 ef = = ee Fe | ee Mele = Be wk Ble le lB le 

{ { i 

eel Si, Sond ee al, Sole Col 3 
*« y € V * Vy 
* * * * 


kaka KEKE EEK KKKKE KKH KEKKKKM haha hKkkkKkkkhaekekkkkk 


FLAGS LENGTH DISPLACEMENT 
Function: 


ae This operator expects three items 
EVALUATION STACK. 


1. The vatue of the top item is 
address. 


to 


the 


be 


key 


on 


the 


table 


2- The second and third items are the left and right 


record addresses respectively. 
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b. 
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The left and right records are compared according to 
the keys and return a vatue of one (1) when the right 


record is greater» according to the keys» than the 
left record. 
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SEARCH SERIAL LIST 


eka kek tk 


* SSL * 


week kkk tk 


Syntax: SSL <Compare Type> 


Format: 


kkkkk kk kk kk kk kk kk ickhkhthkeek 


* 1111 11 1000 000 « & 
KRKAKKKEAEKKKKKKEKKKKKKEKEKEKKKKKK 
OP-Code * 


& 


xxe 3 Bits» specifies compare type 
The compare type specifies the desired relation. It is encoded as 
follows: 
1 = Greater than 
2 = Less than 
3 = Not equal to 


4 = Equat 


5 = Greater than or equal to 
6 = Less than or equal to 


Function: 


a» Four descriptors are expected to be on the top of the 
EVALUATION STACK. These descriptors represent’ the 
following items. 
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Descriptor Meaning 

First(top) Table Length 

Second Compare Value 

Thied First Item 

Fourth Compare Field 


1. Table Length is the length» in bits» of the table 
to be searched. 


2e Compare Vatue determines the value to be compared 
to the structure. Its length can be greater’ than 
CO4e ; 


3. First Item gives the Length and address of the 
first item ina serial tist of items that are of 
identical structure. 


4. Compare Field gives the Length and the offset 
Within the structure of the fietd to which Compare 
Value is to be compared. Unlike SLL» the Length 
may be greater than 24 bits. 


The serial list of items is searched beginning with 
first item untit Compare Value satisfies Compare Type 
with Compare Field» or until the end of the tist is 
reached. 


If the search succeeds» then the base relative address 
of the ttem containing the “successful” compare field 
is left on the top of the EVALUATION STACK and a Ii-bit 
value of 1 Cone) is left as the second item on the 
EVALUATION STACK. 


If the search fails» then the end address of the table 
+ 1 is teft on the top of the EVALUATION STACK» and a 
i-bit value of 0 (zero) ts teft as the second item on 
the EVALUATION STACK. 
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SEARCH SDL STACKS 


syntax: 


Format: 


$55 


KkaeEKKE 


* SSS * 


weetkeck er 


kek ek kak kkkkkkkekkekaek 


* 1111 11 1110 001 * 


wRKKKEKKEEKEKEKKEKKEKEEKEK 


OP-Code 


Function: 


Four operands are removed from the EVALUATION STACK. 


First(€top) = Stack Base 


Second - Stack Top 
Third - Compare Base 


Fourth - Compare Top 


The stack to be searched with consist of SOL 
descriptors and will be searched from base to top Cor 
vice versa) for a simple descriptor whose address lies 
between compare base and compare top. 


Array descriptors and self-relative descriptors may be 
ignored. 


If the search is successful then a one bit vatue of 
(1) is left on the top of the EVALUATION STACK. 


If the search 1s not successful then a one bit value 
of (0) is left on the top of the EVALUATION STACK. 
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SORT SWAP 


syntax: 


Format: 


SSWP 


Kkekkaekknh 


* SSWP * 


kkekkkkket 


KKEKKKKKEKKKKKKKKKKKEKK 


* 1111 11 2011 101 * 


KKKkKKKKKKkKKkkKKkKkkKKkkKk 


0P-Code 


Function: 


This operator pops two operands off the EVALUATION 
STACK. 


The vakues of the two operands are interchanged 
without regard to type. 


When the two fields are of unequal Lengths the swap is 
Limited to the tength of the shorter field. The longer 
fietd is filled from the lefts tow order bits are 
undisturbed. 


BURROUGHS CORPORATION 
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THREAD VECTOR 


Syntax: TVEC 
Format: 


KRKKKKKKKkKKKKKKKKEKK kK 


* 1111 11 21011 OO1 «* 


KKKKKKKKKKKKKKKKKKKK 


OP-Code 


See SSD for keys table format. 
See IVEC for vector table format. 


Function: 


ae This operator expects 


EVALUATION STACK. 
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kkeikkakkktk 


* TVEC * 


kekkkkekk 


items to be on the 


1. The top item is a bit displacement into the sort 


vectors where the two vector elements to 


reside. 


2. The second item is the address of the 100 bit 


vector table. 


be The operator then compares the 


two vector elements 


compare 


{according to the sort keys) and stores a winner. 


When the store address is equal to the vector Limit 
the EVALUATION STACK tis cut back and the’ instruction 
pointer advanced. 
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de When the store address is not equat to the vector 
Limit the hit displacement is updated = and the 
EVALUATION STACK and program pointer remain unchanged. 
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SORT UNBLOCK 


Syntax: UBLK 


Format: 


k&ek&ekeka atk 


* UBLK * 


ckK€kaekheknnk 


RAKE KKK KKKKEEK KEKE E 


* 1111 11 1011 011 * 


KRKRKAEKKKKKKKkKKKkAKKEKKK 


OP-Code 


This operator handies blocking for the sort operators. 
It moves data from a source field to a destination 
field and updates the biocking characteristics. 

Four items are expected on the EVALUATION STACK. 

1. The first item is the destination address. 

ois The second item is the source address. 

3e The third item is the length of the data transfer. 
4. The fourth item is the address o f the 


"Pseudo“SortFib™. 


When the block count goes to zero (0) a value of one 
(1) is returned. 


When the block count ts other than zero a value of 
zero €0) ts returned. 
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TRANSLATE 


syntax: 


Format: 


XLAT 


kkekkkkcke 


* XLAT * 


kKkekekekkkt 


kkkkkkkkkkk kkkkkk tke 


* 1111 11 1110 101 * 


KKKKKKEKKKKKKKEKEKKEKKKK 


O0P-Code 


Function: 


Five operands are taken from the EVALUATION STACK. 


1. Descriptor for the result field. (CAn address 
operand). 


2e A selfr-relative descriptor whose vatue is the size 
of the items in the result field and in the 
translate table. 


3- The translate table. (May be a value or an address 
- operand). 


4. A self-relative descriptor whose value is the size 
of the items in the source field. 


5. =A descriptor for the source field. (An address 
operand). 


Each of the items in the source field is used _ to 
subscript into the table to obtain an item which is 
then placed into the result field in the position that 
corresponds to the position of the original item 
obtatned from the source. 


37134 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 

COMPUTER SYSTEMS GROUP : B1700 SDL S=LANGUAGE 

SANTA BARBARA PLANT . P.Se #42201 2389 
ce This process continues until 


1. The source field is exhausted. 
2- The result field is full. 


3- An error occurs (e.ge translate error). 


If either the source or the result is not a multiple 
of its respective item -size then -the tast item 
translated or the tlast transtated vatue witt be 
truncated as required. 


Both source and table item sizes must be equal to or 
less than 24 bits in length» otherwise a run-time 
error occurs. 


The tabte need only be large enough to accommodate 
those items which will actually appear in the source. 
That is» the upper end of the table need not be 
present if at wilt never be accessed» However, 
attempting to.access a table item which is beyond the 
actual size of the table will cause a run-time error. 
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MISCELLANEOUS OPERATORS 


TRANSFER MESSAGE 


HASH CODE 

SWAP 

FETCH 

FETCH AND SAVE 
DISPATCH 

HALT 

READ CASSETTE 
LENGTH 

LOAD SPECTAL 
CLEAR ARRAY 
COMMUNICATE 
REINSTATE 
FETCH CMP 

VATA ADDRESS 
SAVE STATE 
HARDWARE MONITOR 
OVERLAY 


PROFILE 


MNEMONIC 


XFRM 


HASH 
SWAP 
FECH 
FECS 
DISP 
HALT 
ROCS 
LENG 
LSP 

CLR 

COMM 
REIN 
FCMP 
ADDR 
SVST 
HMON 
OVLY 


PRFL 
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P. 


OP CODE 


1111 11 1010 


1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 


1111 


11 


01 


00 


11 


01 


11 


01 


10 


01 


10 


10 


10 


10 


01 


11 


11 


11 


10 


1000 
0110 
1100 
1110 
1011 
0010 
0010 
0000 
1110 
0111 
0110 
0001 
0010 
1001 
0001 
0011 
0000 


1111 


Se 


010 


001 


#2201 2389 


ARGUMENTS 


DEST»~VARIABLES 
SOURCE VARIABLE 


VARIANT 


ENTRY NUMBER 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 
PARITY ADDRESS 

EXECUTE 

COMMUNICATE WITH GISMO 
ADD TIMER 


SUBTRACT TIMER 


PADR 


EXEC 


CWG 


ADDT 


SUBT 


1111 
1111 
1111 
1111 


1111 
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11 


11 


11 


il 


11 


P. 


0111 


1110 


1110 


1100 


1100 


Se 
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ADDRESS 


Syntax: ADDR 


Format: 


KKK KaKKKhKKK KEKE EK 


* 1111 01 1001 * 


kkkkkkkkaekkkekikkk 


OP-Code 


Function: 


ae A descriptor 
EVALUATION STACK. 


1. Nonwarray 


2e Nonv-selferrelative 


is expected to be 
This descriptor must be 
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wkekenekae nt 


* ADDR * 


ke tk&k hen 


on the top of the 


3. The nametvalue bit must be off. 


De The type 
self-relative>, 


descriptor is set to 


ce The length field of the descriptor is set to 24. 


BURROUGHS CORPORATION 
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ADD TIMER» SUBTRACT TIMER 


Syntax: ADOT <cetl number> 


SUBT <cell number> 
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kke&aebkkkaenckkke keke 


* AODDT * SUBT * 


kk&k&kkkkkkkKk kkk 


Format: 
ADDT 
KKK KK KkKkkKkKKKkKeKKkKKKKKKKKKKkKKKEK 
* 1111 11 1100 000 « & 
kaekkkkKkKkkekKkkekkkKkkkkkkkkekkkkkKeK 
OP-Code * 
«x 
«xe 16 Bits specifies cell number 
SUBT 
wkKKKKKkAKKKKKkKKKkkKkkeKKEKKaK Ka KK 
* 1111 11 1100 001 * * 
KAKA AEKEKKKKAKEKKKEKKKK KEKE KK KkAkk ak 
OP-Code * 


* 


zee 16 Bits specifies celt number 


Function: 


ae This operator assumes that DISPLAY(18) pelnks to cell 


zero of an array of 48-bit ceils. 


be. The celt number is used to subscript into the array to 


locate the indicated cell. 


ce The highrresolution timer is added (subtracted) from 


the indicated cell. 
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de. An adjustment wittl be made to the timer to exclude the 
time required by the operator from being included in 
the cell time. 


e» If no highetresolution timer is present on the system» 
then this operator will not change the timing cetl. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CLEAR ARRAY 


CLR 


Syntax: 


Format: 


KKkeKkKkKKKKKKkKkKKKK 


* 1111 10 0111 * 


KKKKKKKKKKKKKKKE 


OP-Code 


Function: 


a non-paged array descriptor. 


be When the 


elements are blank filled. 


Cs For 


array 


zero filled. 


is 


o f 


type 
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kKktetkarektk 


*« CLR * 


kkKrkkektk 


descriptor on top of the EVALUATION STACK must be 


CHARACTER» the array 


any other data types the array elements witl be 
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COMMUNICATE 


Syntax: 


format: 


COMM 


keke hak & 


* COMM * 


keenchke kk 


kkk kk ke kk kkkkkazk 


* 1111 10 0110 * 


kkk KK kA KK KE KKKEEK 


OP-Code 


Function: 


The descriptor on the top of the EVALUATION STACK is 
moved to RS.COMMUNICATE.MSG-PTR. 


When the namervalue bit is ons it is turned off in the 
RS»«COMMUNICATE.MSG.~PTR. 


The descriptor ts removed from the EVALUATION STACK 
and the VALUE STACK is cut backs if necessary. 


The M=machine state ts stored in the appropriate parts 
of the RS.~NUCLEUS. 


The ‘program whose RS.~NUCLEUS address is given in the 
RSeCOMMUNICATE.-LR is then instated. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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COMMUNICATE WITH GISMO 
; kKekkek ane 
*« CWG * 
kKteuetkkent 
syntax: CWG 
Format: 
KkKkkE Ka KK KK&KKKkKKKKEKE 
* 1111 11 1110 110 * 
KEKE KKEKKKKKKEKKKKKEK Kk 
OP-Code 
Function: 
ae A descriptor is expected to be on the top of the 
EVALUATION STACK. 
be. If the descriptor is selfrretative it is made 
non-self-retative by copying its data to the VALUE 
STACK. 
ce The address field of the descriptor is made absolute 


in the "L™ register. 


and placed in the "T" register. 

d.- The length field is placed 

eo A swapper value of 14 is placed in the "X™" register 
and GISMO is catted. 

f.- The descriptor on the EVALUATION STACK 


is not removed. 


BURROUGHS CORPORATION 
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DISPATCH 


Syntax: DISP 


Formats 


KkKkKkKKKKKkKEKKKkKkaKk 


* 1111 01 1011 * 


KKKKKKKKEKKKKKKKK 


OP-Code 


Function: 
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ekKKK KKK 


* DISP * 


ke kkkk kek 


ae Two operands are removed from the EVALUATION STACK. 


be The top operand is an address operand of the I 
descriptor to be dispatched. 


Ce The low order 7 bits of the second operand should 
encoded as follows: 


betaeeaekakk ka kkketkkke 


* 


* * 


kKkekKEKK KK KEK KKKKKEK 


* * 

* « 

k wee & Bits specifies Channel 
*« 

* 

wxkex 3 Bits» specifies Port 


/0 


be 


de These two operands are passed as parameters to GISMO» 
which then performs the I/0 operation. 
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ee GISMO returns a value which describes the results of 


the dispatch. A 24"bit selfrrelative descriptor its 
heft onthe EVALUATION STACK. The vatue has_~ the 
following meaning. 


0 = Dispatch register lockout bit set 
1 = Successful dispatch 
2 = Successful dispatch» but missing device 


BURROUGHS CORPORATION 
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EXECUTE 


Syntax: EXEC 
Format: 


kEKKKK kk KKKKkKkKkKKkKkKKK 


* 1111 11 21110 010 * 


KkkaKKEKKKKEKKkaAKEKKKEKK 


OP-Code 


Function: 


37145 


COMPANY CONFIDENTIAL 
B1700 SDL S=LANGUAGE 
P.S- #2201 2389 


Keak ek an 


* EXEC * 


k&kkaretkkan 


The value of the top operand on the EVALUATION STACK 
wilt be considered to be 


executed. 
op=codes 


This 
in the 


is for the 
interpreter. 


the next opcode to be 
testing of experimental 


This operator is not in release interpreters. 
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FETCH COMMUNICATE MESSAGE POINTER 


kaekkkekn 


* FCMP * 


khkkkkkke 
Syntax: FCMP 
Format: 


KaeaKeKaEKEKKEEEK KKK 


* 1111 10 0010 * 


KakKa KKK aKEKRKKKAKSE 


OP-Code 
Functions 


ae If the RSe-MCP.BIT is set then the 
RSe-COMMUNICATE.MSG.PTR is accessed. 


De If the RS.MCP.BIT is not set then the RS.«~REINSTATE. 
MSG.PIR ts accessed. 


ce The accessed field is assumed to be a descriptor and 
is placed on the top of the EVALUATION STACK. 
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FETCH» FETCH AND SAVE 


kKKkKKKKKKKhKkkKKS 


* FECH * FECS * 


RKRKKEAEKKAEKAKEKKE 


Syntax: FECH 


FECS 
Format: 

FECH FECS 
KEeEKEKKAKKKExKaeKkaK EK kkexktk ket kakekkaekekkeKekekke & 
* 1111 00 1100 «* * 1111 11 1110 011 * 
KKKKKKKEKKKKKEKEK Keak KK KKEKKKKkkKkkKKKKkKK 

OP-Code OP-Code 


Function: 


ae An operand is. taken from the EVALUATION STACK. Its 
value indicates which item is to be examined on the 
Interrupt Queue (Refer to the MCP manual). 


0 => Use the top item 

-1 => Use the top high priority interrupt time. 
Otherwise the value is the reference 
address +24 of the result descriptor 
desired. 


b.- Two descriptors are left on the EVALUATION STACK. 


1. The top item is a Bit (24) selferelative data item 
whose value is the address of the desired I/0 
result descriptor. ; 


2. The second item is a Bit (10) self-relative data 
item whose value is the port and channet of the 
I/0 operation.e This has the following format: 
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kakKKKK Ka KK KKKKEKK KKK KKK KKK AKA KKK KKKKKKKEK KKK KEKE EAE 
* 1 Bit * 1 Bit * 1 Bit * 3 Bits * 4 Bits * 


KKM AKE KEKE KEE KEKKKKEEHEKRAKEKKEKEKKEKEKKKEKKEKKKEKKKKEKKKEKKEKE 


* * * * * 

k *x * t& * 

* * * * *® 
High Priority Interrupt Unused Port Channel 


Interrupt 


ce. When the operator is Fetchs then the item is removed 
from the Interrupt Queue. 


de When the operator is fetch and Saves then the 
information is left in the Interrupt Queue. 


Ce If the Interrupt Queue was empty» then both 
descriptors have a value of zero (0). 
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HALT 


Syntax: 


Format: 


HALT 


kKaKRKKKKEK 


* HALT * 


kkekkekkktke 


kaKKKEKKKKKkKKKEEEK 


* 1111 11 0010 « 


EEKKKEKEKKKKKKKEK 


OP-Code 


Function: 


The M-machine state is stored in the appropriate parts 
of the RS-NUCLEUS. (Refer to the MCP manual). 


The low-order 24 bits of the vatue of the operand = on 
the top of the EVALUATION STACK» its moved to the 
T-register. 


This operand is popped off the EVALUATION STACK and 
the M-instructtion "HALT": 1s executed. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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HASH CODE 


Syntax: 


Format: 


HASH 


kktk&xkrkantk 


* HASH * 


kkk akk&KKE 


KKKKKKKKKKKKKKKKKKKK 


* 1112 11 1000 O01 * 


KKKKKK KKK kK KKKKKKKKK 


OP-Code 


Function: 


=. 


The algorithm for generating the hash code can best 
described by an SOL procedure. 


PROCEDURE HASH.CODECTOKEN) BIT (24)3 
FORMAL TOKEN CHARACTER VARYING? 
DECLARE 

(bL>T) BITC24)> 

c CHARACTER(1)>» 

01 HASH BIT(27)> 
02 FILLER BIT(3)> 
02 TOTAL BIT(24); 


IF CHASH: =L2=LENGTHCTOKEN)) > 15 THEN L2=15% 


/* C DESCRIBES THE CHARACTER PRECEDING TOKEN */ 


be 
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DESCRIPTOR(C)2=94800082 CAT 
DATAeADDRESSCTOKEN) “8; 
DO HASH.IT FOREVERS 
IF tL <BUMP T THEN RETURN TOTALS 
BUMP TOTAL £-CT MOD 4)1 BY NEXT.ITEM(C)3 
END HASH.IT; 
END HASH.CODEs 
be Each cuneecess of TOKEN is being right adjusted tn a 


field of zeros and added to TOTAL in one of § four 
positions. 


KkkkKKKKKkEk KE KK KEaKKKKKKKKKKEKKKKKKKKEKEKKKkEKAEKKKK EK KKK KKKKKEK 


& * * * *& * *® * HASH 
kKkKke kkk kkk kkkkekkkkkkkkkkkkkkkkkkkkkekkkkk kk keke kkkKKkKKKEKEKKKKEK 
*k 0 saan nea we eaneuan=() * C * T Mod 4&= 
kkk kKkkkkkKkkkkkkkkkkkekkKkkkk&kak ak kk kekaek&KkKaEkKkKEES 
te QO- ek . senna n() * C * T Mod 4=1 
KREKKEKEKEKEKKKKK KK KK KKEKKKKKEKEKKEKEKEKKKRKKKKkkK&KaRkKK 
* 0 — = ww oo oem ee ae a () * C * T Mod 4=2 
RAKE AKKKAEAKAKEKKKEKAKKKEKKKKKaKEKKKKKEKKKKKKKKE KEE KEKaAK 
* 0) on ee eee eo aaen=a() * , C & T Mod 4-3 


KCK AKKKaKKKaAKKEKKKKKKKKa KEKE aEKKKKEKKEAKEKKKKEKK 
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HARDWARE MONITOR 


Kk KKKKKK 


* HMON * 


kk kkkk kk 


Syntax: HMON 
Format: 


RKKKKKEKKKKKKKKEKEK 


* 1111 11 0011 * 


wee Kkk&k kkk kkkkkkek 


OP-Code 
Functions: 


ae An operand is taken from the top of the EVALUATION 
STACK. 


be. The low order eight bits of the operand’s value will 
be used as the operand of a monitor mtcrosinstruction. 
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LENGTH 


Syntax: LENG 


Format: 


RKKaEKKKkKKKKKKKKK 


* 1111 10 0000 * 


wKKKKKKKkkKKkKKKKKKE 


OP-Code 


Function: 


ae An 

De A 
of 
ile 
Ze 


kk kk akKASE 


* LENG * 


xkaeukbkkeke 


operand is taken from the EVALUATION STACK. 


selferelatives fixed result is returned to the’ top 
the EVALUATION STACK» 


When the operand was of type CHARACTER» the value 
of the result 1s equal to the tength field in the 
operand's descriptor divided by eight. 


When the operand was of any type other’ than 
CHARACTER» the value is equal to the tength fietd 
in the operand's descriptor. 
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LOAD SPECIAL 
; kkk kk kk 


* LSP * 
wkKkKKkKKKEK 


syntax: LSP Variant 
Formats 


RKKKKKKKKEKKKKKKKKKKKEK 


« 1111 01 1110 * * 
KKkKKKKkKkKKKKKKKKKKKKKE KKK 
DP-Code . * 


*« 


**«x 5 Bit Variant indicating value to toad 


Function: 


ae The variant field indicates a vatue to be loaded _ to 
the top of the EVALUATION STACK» usually as a 24 bit» 
seilf-relative data item. 


Variant Value 

Base register (absolute address) 
Limit register (base relative) 
S-Memory size in bits 

M-Memory size tn bits 

CONTROL STACK top (base relative) 
EVALUATION STACK top (base relative) 
CONTROL STACK size in bits 

NAME STACK top Cbase relative) 
DISPLAY BASE (base retative) 
CONSOLE SWITCHES 

SPO. INPUT.~PRESENT (1 bit) 
PROGRAM.SWITCHES (40 bits) 


KF OW ONDU SEWN HO 


— 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


QVERLAY 


Syntax: OQOVLY 
Format: 


KKEKKKKKAKKKKKKKEK 


* 1111 11 0000 * 


kkirkkkkkkkkkkKkKKkk 


oP-Code 


Function: 
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Kk kk&kKkikk 


* OVLY * 


kiek&kkkaxe 


ae An operand is taken from the top of the EVALUATION 


STACK. 


be The vatue of the operand will be used by GISMO as an 
index into the interpreter dictionary. 


Ce The interpreter dicttonary witt specify the action to 


be taken. 


(Refer to the B1700 MCP manual). 
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READ CASSETTE 


syntax: 


Format: 


ROCS 


kkkakkkkek 


* RDCS * 


kKKkKKkKKKKEK 


kkkkk&kkkkkk kkk ak 


* 1111 01 0010 * 


kkk kk kk kxkkakaxkkenk 


OP-Code 


Function: 


Three operands are expected to be on top of the 
EVALUATION STACK. 


Top item - address operand where a one or zero is to 
be stored according to whether a hash total read from 
the tape is good or bad. 


Second item = a selfrrelative value of one if a hash 
total is to be read from the tapes else zero. 


Third item - an address operand where data from the 
tape is to be stored. 
The following conventions appty; 


1... At least one record will be read. 


-2e A sufficient number of records wilt be read _ to 


fill the buffer requested (third operand). 


3e. The cassette will not be stopped in the middle of 
a record. 
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4. Cassette record tengths should be multiples of 16 
bitS. 


5. If the size of the buffer is not a multiple of 16 
and a HASH.-TOTAL checking was requested» then a 
badehash €0) indication will be returned. 


6. If NO-HASHe TOTAL checking was requested» then a 
good hash (1) witt be returned. 
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PARITY ADDRESS 


Syntax: 


Format: 


PADR 


kk kk kent 


* PADR * 


kKakk ka eek 


Kkkkkkkkkkkkkkkk 


* 1111 11 0111 « 


KkKkkkkkkkkkkkkknek 


OP-Code 


Function: 


Starting at absolute address zero (0)» S=Memory is 
scanned untit MAXS is reached. 


If a parity error is detected» the error is corrected 
and its location is placed on top of the EVALUATION 
STACK as a selfrrelative 24 bit data item. The address 
returned points to the beginning of the byte of 
S“memory in which the parity error occurred. 


If no error is detected» a value of AFFFFFFA is placed 
on the EVALUATION STACK. 


NOTE: For MCP use only. 
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PROFILE 


Syntax: 


Format: 


wekekKkK KKK 


* PRFL * 


Keke kk unk 


PRFL <Profile Array Index> 


RAKKEKEAKAAEEKAKEKEEKEAEKEKEKKK 


* 1111 10 1111 * * 


KKKkKKKKKkEKKKKKKEKKKKKK 


OP-Code 


Function: 


* 
« 


xxx 12 Bits» specifies index 


DISPLAY(16) contains the base relative address of the 
profile array. This array is between the tLimit of 
DISPLAY and the base of the CONTROL STACK. Each 
element of the array is 16 bits. 


The entry number given by <profile array index>» is 
bumped by one. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


REINSTATE 


Syntax: REIN 


Format: 


RKC KKEKEKKKEKEKKKKEEK 


* 1111 10 0001 * 


REKKKEEKEKKEKEKKEKEKS 


OP-Code | 


Function: 
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kk&kek&kkeke 


* REIN * 


kx ke tkek kek 


ae The descriptor on the top of the EVALUATION STACK. is 


assumed 


RSeNUCLEUS 


RS-COMMUNICATE.MSG.PTR 
of the program to be reinstated. 


(Refer to 


the MCP manual for a description of a run structure.) 


b. This descriptor should have the namervalue bit off. 


ce The reinstating program's S=machine state is stored in 


the appropriate parts of 


d.- The address of the reinstating program's RS.~NUCLEUS 


its RS.~NUCLEUS. 


1s 


stored in the reinstated program's RS~CGMMUNICATE.LR. 


ee The address field of the descriptor on the EVALUATION 


STACK contains the address af the RS.~NUCLEUS of 


program 


the descriptor is 


removed from the EVALUATION STACK. 


or 


the 


BURRQUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


SAVE STATE 


syntax: SVST 


Format: 


kKKkKKkKkKKKKKKKKKEKKK 


# 1111 10 0001 * 


wkKKKKEKKEKKKKKKKKKK 


GP-Code 


Function: 


The current 


State 


o f 


the 


37161 


COMPANY CONFIDENTIAL 
B1700 SDL S*LANGUAGE 


PeSe 


S“machine 


is 


#2201 2389 


kaekkk&kktk 


* SVST * 


Ktkkkkkke 


saved 


RSeMe-MACHINE CRefer to the B1700 MCP manual). 


in 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


SWAP 


Syntax: SWAP 


Format: 


RKkKa Ka KE KKKKKK EK K 


* 1111 01 0110 * 


kKkkkkKKE Kk KK kKkKKEKK 


UP-Code 


Functton: 


ae This operator takes two operands 
STACK. 
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kketetkkkee«zt 


* SWAP * 


kakekakekaeke 


from the EVALUATION 


1e The top (source) operand may be a vatue or an 


address operand. 


2. The second (destination) 
address operand. 


operand must be an 


a) The length of the destination determines’ the 


width of the data “*swappe 


be Destination field: 


d". 


1. When the Length of the destination is greater than 


24 bits» only the rightmost 
otherwise the entire field is 


Ce Source field: 


1. A value equal tn tength to t 


24 bits are isolated> 
isolated. 


he destination fietd 


is 1solated in the source field. 
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2. The bits are taken from the right. 


a) when the source length is shorter than the 
destination field» leading zeros are supplied. 


The source field is moved to the destination field and 
the former vatue of the destination field is returned 
as aresult on the EVALUATION STACK. 


The swap must be performed such that no other 
processors sharing the same memory can stmultaneously 
Swap out the same area of memory. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


TRANSFER MESSAGE 
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k&eatekk&teatk 


_* XFRM * 


kKkeaketckaee 


Syntax: XFRM <Destination type> (C<DES-~DATA DICT-BASE> 
C<DEST.~SUBSCRIPT.~BOUND>}] <Source Type> 
C<SOURCE DATA DICT.-BASE> (C€<Source Subscript Bound>)] 


NOTE: This operator is scheduled to be removed from the 


S*machine. 


Format: 


KKK KK aeKKEKKEKEKKKKKKKKeEKKKEKKKE KK KKKKKKKKKKK KKK KKKKKE KK KKKEK 


* 


* 


« 


* « 


KKKKKKKKKKKKEKKKKKKKKKKKKKEKKKKKKKKKEKKKKKKE EK KK KK KKKKEEKKEKEK 


* 1111 11 1010 010 « * 
UP-Code te « 
* kk 
* & 
3 Bits Destination fype * 
«x 
O» 12 Bits * 
Destination Data Dict Base 


O» 12 Bits 
Destination Subscript 


O» 


x 


Q* th et he PR 


Boun 


. 3 Bits 
Source Typ 


12 Bits 
Source Data Dictionary Base 


* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
« 
* 
* 
e 


O» 12 Bits 
Source Subscript Botn 


* *& 
* * 
* * 
* * 
* * 
* * 
* *« 
* * 
* * 
& * 
* « 
* * 
* * 
* * 
* * 
* * 
& « 

* 

*« 

* 

* 

d 
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TYPE FIELD 


RKEKKKEKKKKEKKKEKKKKKaE KKK KKKKEKKK 


* * * * 
KAEAKKEEKHEKKKKEKKEKKKEKKEKKKEKEKEKEKEK 
& * * 
* x 
KRKKKKKKEKKKKKKE x 
« * 


0 =- Descriptor 1s on E.S-e 
description 


1 - Use Data Dictionary 
(Data Dict. Entry 


base follows) 


« 
* 
* 
« 
*& 
* 
* 
* entry. 
* 

« 


EKKKKKKKKKEKKKKKKKKAKKK 
* 


0 = Not subscripted 
1 - Subscripteds» subscript is on E.S. 


C12 bit subscript bound follows 
data dict. base) 


Function: 


ae This operator transfers information between: 
1. Messages (or parts of messages) 
2. Data contained within Base~Limit and messages 


parts of messages. 


be. The source and destination fields may be of 
foltowing types: 


0 - Use data dict. entry 


1 - Use template in E.S.- 
applied to data dic. 


or 


the 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


TYPE 
Base=Limit data 
Message 
Message array 
element 


Part of message 
of message array 
element 
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MEANS OF DESCRIPTION 

Descriptor on EVALUATION STACK 
Data dictionary entry number 

Data dictionary entry number and 
subscript on the EVALUATION STACK» 
is added to the data dictionary 
entry number 

The template on the EVALUATION 
STACK is to be applied to the 
message which ts described by the 
data dictionary entry. This is 
obtained the same as 2 or 3. 


The type field of the destination field is used to 
obtain the description of the destination field. 


The type field of the source fieitd is used to obtain 
the description of the source field. 


Data is transferred from the source field to the 
destination field as in a character to character store 


operation: 


le Left justified 


2. fTraiting blank fill or truncation on the right 


ALPHABETIC INDEX: 


ADO 


ADD TIMER» SUBTRACT TIMER 


ADOR 

ADDRESS 

AODT 

AL 

ALA 

AND 

ARITHMETIC OPERATORS 
ARITHMETICS 

ARRAY LOAD ADORESS 
ARRAY LOAD VALUE 
BIN 


BUMP VALUE STACK POINTER 


BVSP ; 
CALL 

CASE 

CAT 

COAD 

CDBZ 

CODY 

CDFC 

COFM 

COLD 

COLL 

COMP 

COPR 

CORM 

CHARACTER FILL 
CHFL 

CLEAR ARRAY 

CLR 

CNTR 

CO“ROUTINE ENTRY 
CO-ROUTINE EXIT 
CODE ADDRESSES 
COMM 
COMMUNICATE 


COMMUNICATE WITH GISMO 
COMPONENTS OF THE S=MACHINE 


CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR 
CONSTRUCT DESCRIPTOR, 
CONTROL STACK MECHANI 


BASE ZERO 
DYNAMIC 
FORMAL 
FROM PREVIOUS 
LEXIC LEVEL 
LUCAL DATA 
OPERATORS 
PREVIOUS & MULTIPLY 
PREVIOUS and AOD 
REMAPS 

FORMAL CHECK 

3M 


tet 6 @ ge 
NOoOe Ss 
NM 


N00 WO OD HO OO 


me re tA A ON ON OO 


CONVERT TO BINARY 
CONVERT TO DECIMAL 

CWG 

CXIT 

CYCL 

CYCLE 

DATA ADDRESSES 

DATA DESCRIPTORS 

DBLK : 

DE BLANK 

DEC 

DEL 

DELETE 

DELIMITED TOKEN 

DESC 

DESCRIPTOR 

DISP 

DISPATCH 

DIV 

DTKN 

DUP 

DUPLICATE 

EDI 

ENABLE DISABLE INTERRUPTS 
EQL 

EXCHANGE 

EXEC 

EXECUTE 

EXIT 

EXIT» ENABLE INTERRUPTS 
EXOR 

EXTENDED ARITHMETIC OPERATORS 
FCMP 

FOUP 

FECH 

FECS 

FETCH COMMUNICATE MESSAGE POINTER 
FETCH, FETCH ANO SAVE 
FIND DUPLICATE CHARACTERS 
FORCE VALUE STACK 

FVS 

GENERAL 

GE Q 

GTR 

HALT 

HARDWARE MONITOR 


HASH 


HASH CODE 
HMON 

IF THEN 

IF. THEN ELSE 
IFEL 


1-18 
5762 
3-60 
3-115 
271 
5-115 
3763 
3°65 
37-153 
3-153 
SZ 
3-67 
3769 
3765 
3767 
3~69 
3-73 
3= 75 
5754 
37154 
3763 
3719 
3716 
37154 
3-2 
3-70 
3-98 
3799 
3-70 
37135 
3-98 
3-99 
3-5 
3-5 
3-11 
3-11 
3-2 
3-71 
57177 
5219 
3-71 
37117 
57-75 
3-17 
3-155 
37155 
37158 
1-11 
37-158 
37159 
3-82 
37159 
37156 
S< 12 
37156 


IN*LINE DESCRIPTOR FORMATS 


INDEXED LOAD ADDRESS 
INDEXED LOAD VALUE 
INITIALIZE VECTOR 
INSTRUCTION SET 

IVEC 

L 

LA 

LENG 

LENGTH 

LEQ 

LIT 

LITN 

LOAD ADDRESS 

LOAD LITERAL 

LOAD NUMERIC LITERAL 
LOAD NUMERIC ONE 
LOAD NUMERIC ZERG 
LOAD OPERATORS 

LOAD SPECIAL 

LOAD VALUE 

LOGICAL NOT 

LOGICAL OPERATORS 
LSP 

LSS 

MAKE DESCRIPTOR 

MARK STACK 

MARK STACK AND UPDATE 
MDSC 

MISCELLANEOUS OPERATORS 
MKS 

MKU 


MOD 


MUL 

NEG 

NEGATE 

NEQ 

NEXT OR PREVIOUS ITEM 
NEXT TOKEN 

NOT 


OVERLAY 

OVLY 

PADR 

PAGED ARRAY DESCRIPTORS 
PARITY ADDRESS 

PRFL 

PROCEDURE OPERATORS 
PROFILE . 

ROCS 

ROIV 

READ CASSETTE 


37160 
37160 
Led 
as | 
37103 
3-100 
3-12 
S712 
sore 
37100 
3-103 
3-161 
3-108 
37119 
37128 
3-126 
3-119 
3“ 29 
S251 
3-122 
57124 
S129 
3-132 
S- 222 
3-124 
5-126 
37128 
37129 
ge22 
3724 
a7 CO 
3-76 
57335 
3-33 
3-29 
S251 
3~28 
3721 
3-20 
3-5 
3726 
5-24 
3722 
37138 
3-161 
37162 
1-4 
37130 
37164 
37133 
3-130 
37-132 
37106 
37105 
3-106 


REIN 

REINSTATE 

RELATED PUBLICATIONS 
RELATIONAL OPERATORS 
RETURN 

RETURN FORMAL CHECK 
REVERSE ARITHMETICS 
RMOD 

RSUB 

RTNC 

RTRN 

SAVE STATE 

SEARCH & SCAN OPERATORS 
SEARCH LINKED LIST 
SEARCH SDL STACKS 
SEARCH SERIAL LIST 

SLL 

SNDL 

ONOR 

SORT SEARCH 

SORT STEP DOWN 

SORT SWAP 

SORT UNBLOCK 

SSCH 

SSD 

SSL 

5S$ 

SSWP 

S$1 

$S2 

$53 

STACK OPERATORS 

STOD 

STORE DESTRUCTIVE 

STORE NON“DESTRUCTIVE>e DELETE LEFT 
STORE NON“DESTRUCTIVEs DELETE RIGHT 
STORE OPERATORS 

STRING CONCATENTATION 
STRING OPERATORS 

SUB 

SUB“STRING» THREE PARAMETERS 
SUBSTRING» TWO PARAMETERS 
SUBSTRING» ONE PARAMETER 
SUBT 

SVST 

SWAP 

THE BASE“LIMIT AREA 
THREAD VECTOR 

TRANSFER MESSAGE 
TRANSLATE 

TVEC 

UBLK 

UNDC 

UNDO 

UNDO CONDITIONAL 


1-20 
3-74 
37-74 
3714 
3-81 
3-14 
3-164 
S7 153 
3714 
3714 
3-14 
37107 
37 ¢5 


USE OF THE EVALUATION STACK 
VALUE DESCRIPTOR 
VOSC 

XADD 

XCH 

XDIV 

XF RM 

XLAT 

XM90 

XMUL 

XSUB 

XTETI 

ZOT 


